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Preface 


One  of  the  courses  offered  by  the  Air  Force  Institute  of 
Technology  (AFIT)  is  the  Combined  Warfare  course  (ST7.01)  which 
is  designed  to  teach  concepts  of  warfare.  The  first  year  this 
course  was  offered,  the  class  was  sent  to  Maxwell  AFB  to  partici¬ 
pate  in  the  playing  of  the  Theater  Warfare  Exercise  (TWX) .  This 
proved  to  be  an  invaluable  addition  to  the  course.  Unfortunate¬ 
ly,  the  exercise  was  designed  solely  for  operation  on  a  Honeywell 
computer.  If  the  exercise  were  to  run  at  AFIT,  it  would  need  to 
be  compatible  with  at  least  one  of  the  computers  at  Wright- 
Patterson  AFB;  the  CDC  or  the  Harris. 

This  report  describes  the  modifications  which  were  required 
to  make  the  programs,  data  and  operation  compatible  with  the  CDC 
computer. 

I  wish  to  thank  Col  Don  Stevens  for  suggesting  this  topic. 
Hopefully,  future  students  will  derive  as  much  insight  from  TWX 
as  I  have.  I  am  indebted  to  Maj  Dan  Fox  for  his  patience  and 
suggestions  during  the  many  hours  we  spent  discussing  this  prob¬ 
lem.  I  could  not  have  completed  half  of  this  thesis  effort  had 
he  not  introduced  me  to  the  UEDIT  text  editor  and  the  PDP-11/60. 

I  also  wish  to  thank  the  computer  personnel  at  HQ  AU/ACDY 
and  AFIT/ AD  for  taking  the  time  to  talk  about  how  the  TWX  pro¬ 
grams  were  designed  and  how  they  operate.  In  particular,  I  wish 
to  thank  Lt  Ed  Laugel  for  the  many  hours  he  spent  explaning  the 
origins  of  the  TWX  and  the  operation  of  Honeywell  computers. 


Cape  Carl  Lizza  Is  also  to  be  thanked  for  his  assistance  In  the 
segmentation  process  and  debugging  of  the  programs.  SrA  John  0. 
Long's  help  and  knowledge  of  the  CDC  was  greatly  appreciated. 
AFIT  would  not  have  the  TWX  if  it  were  not  for  these  people. 

1  wish  to  thank  my  fellow  classmates  who  suggested  modifica¬ 
tions,  spent  considerable  effort  in  developing  a  test  data  base, 
and  helped  in  so  many  other  ways. 

Fiually,  my  wife  Holly  is  to  be  thanked  for  her  patience  and 
understanding,  and  support  through  the  many  difficult  periods 
during  this  project. 


Anthony  Waisanen 
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Abstract 


This  thesis  report  details  the  processes  and  modifications 
that  were  required  in  order  to  execute  the  Theater  Warfare  Exer^ 
cise  (TWX)  on  the  CDC  computers  at  Wright-Patterson  AFB.  Prior 
to  this  effort,  the  TWX  programs  and  data  files  could  only  be  ac- 
cessed  and  executed  with  Honeywell  computers. 

By  modifying  the  data  files,  program  coding,  overlaying 
techniques,  and  operation,  the  TWX  can  now  be  run  on  any  CDC  com¬ 
puter.  Any  other  computer  with  sufficient  central  memory  and  an 
ANSI  standard  FORTRAN-77  compiler  can  also  execute  the  programs 
provided  the  operation  methods  (procedure  files)  are  modified. 
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THEATER  WARFARE  PROGRAMS  AT  AFIT; 


AH  INSTRUCTIONAL  AID 


I  Introduction 


One  of  the  objectives  of  a  military  institution  like  the  Air 
Force  Institute  of  Technology  (AFIT)  is  to  give  its  graduates  the 
education  necessary  for  them  to  be  able  "to  understand  their  cul¬ 
tural  and  technological  environment  and  to  analyze  and  attempt  to 
solve  its  problems  (Ref  1:2+).”  Ideally,  the  students  should  have 
the  opportunity  to  apply  what  they  have  learned  prior  to  graduat¬ 
ing.  Thus,  their  analyses  could  be  critqued  by  other  analysts  in 
a  controlled  setting.  Such  an  interaction  could  instill  in  the 
student  an  understanding  of  the  role  and  process  of  analyses  in 
the  military.  Students  in  the  School  of  Engineering  have  very 
full  class  schedules.  Since  non-computerlzed  exercise  would  take 
too  much  time  and  effort  to  be  useful,  some  computerization  is 
needed.  Thus,  attention  is  directed  to  computerized  exercises. 


Background 

One  way  of  gaining  this  experience  is  to  participate  in  the 
Theater  Warfare  Exercise  (TWX)  which  is  played  as  part  of  the 
Combined  Air  Warfare  Course  (CAWC)  at  Maxwell  AFB.  This  is  not  a 
practical  solution  however  considering  the  time-intensive  class- 


work  required  for  all  AFIT  courses.  Nor,  due  to  TDY  expenses,  is 
it  financially  feasible  since  the  TWX  typically  requires  at  least 
two  days  for  introduction  and  preplanning  and  five  days  of  execu¬ 
tion  for  a  minimum  of  seven  days.  This  was  done  in  February  1981 
with  the  first  class  of  Combined  Air  Warfare  Seminar  (ST7.01) 
students  but  there  were  only  four  students  taking  the  course. 
Future  classes  are  expected  to  number  in  excess  of  15. 

Another  alternative  would  be  to  use  a  simulation  in  ex¬ 
istence  at  AFIT  such  as  STAG  (Ref  4).  However,  STAG  is  only  a 
two-player  simulation  with  very  limited  realism  and  interaction. 
It  was  not  designed  to  represent  real-world  results  (Ref  4:13). 

The  most  desirable  option  would  be  to  perform  the  TWX  at 
AFIT.  This  option  offers  a  realistic  exercise  without  excessive 
disruption  to  the  schedules  of  the  players  and  without  requiring 
a  large  TDY  budget.  This  would  require  the  modification  of  the 
programs  currently  being  used  for  the  CAWC  to  a  set  of  programs 
which  could  be  run  on  either  the  Harris  or  CDC  computers  at 
Wright-Patterson  AFB. 

Problem  Statement 

Prior  to  this  effort,  the  TWX  programs  could  only  be  run  on 
Honeywell  computers.  If  these  programs  are  to  be  used  at  AFIT, 
they  must  be  able  to  execute  on  a  variety  of  computers;  specifi¬ 
cally,  the  Harris  and  CDC  computers.  This  required  that  the  cod¬ 
ing  and  data  be  transferred  to  one  of  these  computers. 

It  was  decided  to  convert  the  programs  to  ANSI  standard 


FORTRAN-77.  This  resulted  in  enhanced  portability.  FORTRAN-77 
was  selected  since  all  of  the  TWX  programs  use  character  vari¬ 
ables  and  ENCODE  and  DECODE  statements  (which  are  the  FORTRAN-77 
equivalent  of  internal  file  WRITES  and  READs). 

A  significant  effort  was  required  to  develop  job  control 
language  (JCL)  to  access  the  data  files  and  execute  the  programs. 
In  the  original  programs  (Ref  7),  data  file  access  was  accom¬ 
plished  with  Honeywell  machine  dependent  code  in  the  programs  and 
not  with  the  JCL.  Since  file  manipulation  is  strictly  a  function 
of  the  type  of  computer  system  being  used,  this  was  changed  so 
that  file  manipulation  would  be  completely  external  to  the  pro¬ 
grams.  Thus,  transportation  of  the  TWX  programs  from  one  comput¬ 
er  system  to  another  could  be  accomplished  without  requiring 
modification  of  the  TWX  source  code. 

Scope  and  Limitations 

The  purpose  of  this  thesis  effort  was  to  create  a  set  of 
theater  level  warfare  exercise  programs  at  AFIT  that  are  func¬ 
tionally  identical  to  those  used  in  the  CAWC  at  Maxwell  AFB  on 
August  1981.  That  is,  from  a  player's  and  analyst's  point  of 
view  the  programs  should  appear  to  operate  in  identical  fashion 
to  those  used  in  the  CAWC.  This  way,  players,  analysts,  and  ex¬ 
ercise  administrators  who  are  familiar  with  one  set  of  the  TWX 
will  be  able  to  function  with  the  other  set  without  lengthy 
learning  periods.  This  also  permits  the  use  at  AFIT  of  program 
documentation  and  exercise  directions  which  have  already  been 
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developed  for  Che  exercise  at  Maxwell  AFB.  This  effort  was  lim¬ 
ited  to  the  transfer  and  modification  of  the  data  files  and  pro¬ 
gram  coding  required  to  execute  the  programs  at  AFIT.  None  of 
the  algorithms  used  in  determining  troop  movement,  losses,  and 
others  were  modified  unless  the  program  would  not  otherwise  run. 

Because  of  its  accessibility  and  large  storage  capacity,  the 
CDC  computer  was  used  in  making  the  modifications  and  developing 
the  JCL. 

Documentation  of  this  thesis  effort  is  was  limited  to  the 
description  of  that  coding  which  had  to  be  modified.  According 
to  one  of  the  TWX  programmers  (Ref  6),  the  original  directives  to 
the  TUX  programmers  included  the  requirement  for  extensive  docu¬ 
mentation  of  every  routine.  Therefore,  this  documentation  to¬ 
gether  with  the  documentation  contained  in  this  thesis  should 
adequately  describe  the  modified  programs. 

Finally,  modifications  to  the  coding  were  as  limited  as  pos¬ 
sible  and  no  modifications  were  made  to  the  data  file  formats. 
When  system-specific  intrinsic  routines  were  found  (for  example, 
routines  which  determine  binary  file  size),  equivalent  FORTRAN-77 
coding  was  developed.  The  resulting  code  was  placed  in  a 
seperate  library,  not  in  the  TWX  programs  themselves.  This  way, 
the  translated  TUX  programs  appear  to  be  as  similar  as  possible 
to  the  original  and  all  system-specific  coding  is  located  only  in 
the  library.  In  those  instances  where  a  routine  could  not  be 
recoded  because  of  name  similarity  (for  example,  ENCODE),  the 
program  was  modified  by  changing  the  offending  code  into  comment 
statements  and  putting  the  equivalent  coding  directly  after  it. 
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Calls  to  some  routines  like  FMEDIA  and  CREATE  are  required  only 
by  the  Honeywell  computers  (Ref  5).  These  calls  were  changed  to 
comment  statements. 

Along  with  the  TOX  programs,  source  code  for  25  utility  pro¬ 
grams  were  also  transfered.  These  programs  are  used  at  Maxwell 
AFB  to  manipulate  or  modify  the  data  bases.  Because  they  are 
highly  system- specific  and  contain  coding  which  performs  JCL 
functions,  they  have  not  been  converted  and,  in  some  cases,  simi¬ 
lar  programs  have  been  developed.  Their  code  has  been  retained 
on  file  for  future  reference. 
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II 


Modifications 


There  were  three  major  areas  involved  with  modification; 
data  transfer,  coding  modification,  and  verification  of  the  modi¬ 
fied  coding.  Data  transfer  involved  the  conversion  of  the  exten¬ 
sive  data  bases  used  by  the  TWX  programs  from  a  Honeywell- 
specific  format  and  data  representation  to  a  CDC-specific  format 
and  data  representation.  Coding  modification  involved  the  iden¬ 
tification  of  Honeywell-specific  coding  and  the  development  of 
equivalent  code  which  is  not  specific  to  one  computer.  Verifica¬ 
tion  was  limited  in  that  only  those  routines  which  were 
developed  to  replace  the  Honeywell  intrinsic  routines  were 
thoroughly  tested;  the  major  TWX  programs  were  verified  to  the 
extent  that  their  operation  was  identical  to  the  originals. 


Data  Transfer 


Two  types  of  data  files  are  used  in  the  TWX  programs; 
sequential  card  image  and  random  access  binary  (Ref  2).  The 
transfer  of  the  card  image  files  was  only  a  matter  of  reading  the 
magnetic  tape;  the  binary  files  required  considerably  more  modif-  ' 
icatlon.  Since  the  original  data  was  stored  as  36-bit/word 
binary,  it  had  to  be  read  in  binary  form  and  then  written  to  tape 
as  card  image.  The  program  used  to  do  this  read  and  wrote  only 
real  values.  Thus,  character  variables  such  as  the  target  names 
in  file  RLUM  had  to  be  input  manually.  Other  than  this  problem, 
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the  conversion  into  60-bit/word  binary  form  only  required  short 
programs  that  read  card  image  and  wrote  binary.  A  different  pro¬ 
gram  was  written  for  each  format  of  data  file.  Each  of  these 
transfers  was  verified  using  a  similar  program  that  read  binary 
and  wrote  card  image.  The  output  from  these  programs  was  com¬ 
pared  to  the  card  image  listings  obtained  during  the  file 
transfers. 
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There  are  three  types  of  programs  in  TWX;  batch,  interac¬ 
tive,  and  utility.  These  programs  and  the  library  routines  used 
to  replace  Honeywell  specific  system  routine  calls  differ  greatly 
in  both  function  and  form  and  so  will  be  discussed  seperately. 
First,  however,  is  a  general  discussion  of  the  major  compatibili¬ 
ties  and  incompatibilities  between  the  Honeywell  FORTRAN  compiler 
and  the  ANSI  standard  FORTRAN-77  compiler. 

General.  There  were  two  types  of  modifications  to  the  TWX 
programs;  modifications  which  were  compatible  with  both  the 
Honeywell  and  CDC  computers  and  modifications  which  were  incompa¬ 
tible  with  the  Honeywell  FORTRAN  compiler. 

Compatible  Modifications.  One  of  the  differences  in 
compilers  is  the  maximum  allowable  size  of  labels  and  variable 
names.  In  Honeywell  FORTRAN,  a  maximum  of  8  characters  is  al¬ 
lowed  for  variable,  entry,  subroutine,  and  program  names.  To 
minimize  the  dissimilarity  between  the  original  and  modified  ver¬ 
sions,  the  seventh  and  eighth  characters  were  deleted  since  only 
6  characters  are  allowed  by  an  ANSI  standard  FORTRAN-77  compiler. 
Only  when  a  conflict  would  result  were  any  of  the  other  charac¬ 
ters  altered. 

Another  difference  is  that  the  Honeywell  compiler  allows 
character  and  numeric  variables  to  be  in  the  same  COMMON  block. 
This  is  not  allowed  in  FORTRAN-77.  When  this  occurred,  the  char¬ 
acter  variables  were  placed  in  a  seperate  but  similarly  labelled 
COMMON  block  (Table  I). 
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TABLE  I 


COMMON  Block  Modification 


Program 

Original 

Common 

Modified 

Numeric 

Commons 

Character 

AG 

ACCNTR 

ACCNTR 

ACCNTC 

APE 

LAINB 

LAINB 

LAI NBC 

AR 

BUFFER 

BUFFER 

BUFFEC 

CNTR0L2 

CNTRL2 

CNTR2C 

LA 

ACDATA 

ACDATA 

ACDATC 

LGDATA 

LGDATA 

LGDATC 

LB 

PAGEDATA 

PAGEDA 

PAGECH 

TABLDATA 

TABLDA 

TABLCH 

MI 

CONTROL 

C0NTR0 

CONTRC 

CYCLE 

CYCLE 

CYCLC 

READ IN 

READIN 

READIC 

OR 

OUTPUT 

OTPUT 

OTPUTC 

TGOUT 

TGOUT 

TGOUTC 

In  some  cases  source  code  records  extended  past  the  72nd 
column  after  being  formatted  for  the  FORTRAN-77  compiler.  For 
example,  a  record  is  identified  as  a  continuation  by  the 
Honeywell  compiler  if  an  ampersand  is  in  the  first  through  sixth 
column.  The  FORTRAN-77  compiler  identifies  a  continuation  record 
by  the  presence  of  any  character  in  the  sixth  column.  This  meant 
that  all  continuation  lines  that  did  not  begin  in  the  sixth 
column  had  to  be  reformatted  to  be  compatible  with  the  FORTRAN-77 
compiler  which  made  some  records  more  than  72  characters  long, 
the  maximum  record  length.  In  these  cases,  the  extended  coding 
was  continued  on  the  following  line. 

Probably  the  most  troublesome  difference  between  the  comput¬ 
er  systems  is  that  the  Honeywell  loader  initializes  all  variables 
to  0.  Since  the  CDC  initializes  all  variables  to  negative  inde- 
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finite,  all  variables  in  labelled  commons  were  set  to  0  unless 
they  were  defined  by  the  program. 

Incompatible  Modifications .  Not  all  of  the  modifica¬ 
tions  made  to  the  TTWX  programs  at  AFIT  are  compatible  with  the 
Honeywell  FORTRAN  compiler.  For  example,  free-field  READ  and 
PRINT  statements  in  Honeywell  FORTRAN  are: 

READ  ,xxxx 
PRINT  ,xxxx 

but  in  ANSI  standard  FORTRAN-77  they  are: 

READ  *,xxxx 
PRINT  *,xxxx 

Similarly,  direct  access  files  are  read  and  written  in  Honeywell 
FORTRAN  using  the  statements: 

READ  (lud'rec)  xxx 
WRITE  (lud'rec)  xxxx 

where 

lud  *  device  number 
rec  ■  record  number 

The  FORTRAN  77  compiler,  however,  uses  the  statements: 

READ  (lud ,REOrec)  xxxx 
WRITE  (lud ,REC-rec)  xxxx 

These  statements  occur  infrequently  only  in  the  interactive  pro¬ 
grams  so  modification  of  the  coding  back  to  a  form  compatible 
with  the  H6000  compiler  is  not  difficult. 

The  original  programs  made  extensive  use  of  intrinsic  rou¬ 
tines  which  would  modify  the  bits  of  certain  variables.  Since 
this  type  of  operation  depends  directly  on  the  number  of  bits  per 
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word  being  used  by  a  given  computer,  the  routines  were  recoded 
and  placed  in  the  library  file.  Instead  of  modifying  the  bits  of 
a  numeric  variable,  these  new  library  routines  modify  the  charac¬ 
ters  of  character-type  variables  (with  each  variable  consisting 
of  36  characters  which  represent  the  original  36  bits/word). 
This  implimentation  allows  the  modified  programs  to  run  on  any 
machine  using  ANSI  standard  FORTRAN-77  regradless  of  word  length. 
This  means  that  the  modified  use  of  Boolean  variables  and 
Honeywell  intrinsic  routines  is  not  easy  to  modify  back  to  the 
original. 

All  calls  to  the  Honeywell  system  routines  "LINK"  and 
"LLINK"  have  been  changed  to  comment  statements  since  they 
operated  the  Honeywell  overlay  procedures. 

Finally,  every  effort  was  made  to  exclude  system- dependent 
coding  and  functions.  However,  some  routines  cannot  realistical¬ 
ly  function  without  them.  For  example,  subroutine  DATIM,  which 
returns  the  current  date  and  time,  uses  two  CDC  intrinsic  func¬ 
tions  "DATE"  and  "CLOCK."  These  may  require  recoding  if  another 
system  is  to  be  used. 

Batch  Programs.  The  purpose  of  the  batch  programs  is  to 
perform  the  simulation  of  a  theater-level  war  using  the  player- 
defined  inputs.  The  players  only  see  the  results  of  these  pro¬ 
grams  which  they  use  in  planning  the  following  day's  missions. 
Since  these  programs  are  never  directly  accessed  by  the  players, 
data  file  access  is  performed  by  JCL  rather  than  by  program  cod¬ 
ing  and  no  input/output  routines  required  coding  modification. 
One  modification  which  was  required  was  the  use  of  logical  vari- 
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ables 


One  of  Che  options  indirectly  available  to  the  players  is 
the  number  of  reports  that  will  be  printed  by  the  programs  AR, 
LB,  OR,  and  LA  (words  1  through  19  on  records  2  and  3  of  file 
RMRx#  control  this).  The  option  is  indirect  in  that  the  values 
can  be  changed  but  a  utility  program  must  be  used.  These  values 
are  used  as  counters  and  sometimes  as  logicals  with  integer  0  be¬ 
ing  interpreted  as  "FALSE"  by  Honeywell  FORTRAN.  Since  the  CDC 
FORTRAN-77  compiler  interprets  all  non-negative  values  to  be 
"FALSE",  the  logical  variables  (words  1,  11,  12,  13  and  15)  have 
been  set  to  -1.  Since  words  8  and  9  are  used  by  LB  as  logicals 
and  integers,  they  have  also  been  set  to  -1  and  the  coding  of 
subroutines  REP08  and  REP09  have  been  modified  to  use  their  abso¬ 
lute  values.  The  resulting  coding  will  thus  function  on  the  CDC 
and  Honeywell  computers. 

The  air  battle  simulation  program  AR  required  more  extensive 
modifications.  Originally,  it  was  designed  to  simulate  tactical 
airlift  (TAL),  air  force  augmentation  (AUG)  and  aircraft  role 
change  (RC)  functions  as  well  as  air  battle  simulation.  Since 
the  TAL,  AUG,  and  REC  functions  are  now  performed  by  APE,  the 
subroutines  D1TAL,  DUAUG,  and  DIRC  are  no  longer  needed  according 
to  CAWC  personnel  at  Maxwell  AFB  (Ref  9).  They  have  been  com¬ 
mented  out. 

Finally,  the  use  of  maximums  was  modified  in  AR.  In  1VX, 
there  is  a  maximum  number  of  bases/side,  aircraft  types/side, 
cycles/day,  munition  types/side,  corps/side,  days/exercise,  and 
seminars  (words  13  through  20  of  record  4  of  RMRx#).  First,  the 
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array  size  of  variable  MAX  was  reduced  from  9  to  8  since  the 
FORTRAN-77  compiler  does  not  permit  the  reading  of  more  words  per 
record  than  were  specified  when  the  file  was  declared.  Second, 
the  actual  number  of  bases/side,  aircraft  types/side,  and  so 
forth  were  used  as  counters  in  place  of  the  equivalent  values  of 
MAX. 

Interactive  Programs.  Some  of  the  important  features  of  TWX 
are  the  allocation  and  apportionment  of  air  resources,  movement 
of  materiel,  and  mission  definition.  These  functions  are  per¬ 
formed  by  three  interactive  programs;  APE  (AAFCE  Planning  Execu¬ 
tive  program),  Ml  (Mission  Input  program),  and  LI  (Land  Input 
program).  All  of  these  programs  prompt  the  player  for  directions 
and  modify  the  appropriate  data  files;  hence,  the  term,  interac¬ 
tive.  These  programs  all  had  subroutines  which  determined  the 
files  to  be  accessed  based  upon  the  side,  seminar  number,  and, 
for  mission  inputs,  the  ATAF  number.  After  this  information  was 
input,  the  files  were  accessed  using  system  dependent  code  within 
the  programs.  Since  this  function  is  performed  with  JCL  on  the 
CDC,  these  subroutines  (Table  II)  were  removed  from  both  programs 
and  the  program  INPTR  was  developed  (Appendix  A). 
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TABLE  II 


Deleted  TWX  JCL-type  Subroutines 


Program 

Subroutines 

APE 

PIATCH,  PILO,  PILOPS, 

PILOSEM  and  PILOSIDE 

LI 

PILOSEM  and  PILOSIDE 

MI 

PIATCH,  PILO,  PILOPS, 

PILOSEM  and  PILOSIDE 

It  should  be  noted  that  INPTR,  together  with  the  JCL  necessary  to 
compile  it  and  catalog  the  object  deck,  comprise  the  file  INPTGO 
in  the  Indirect  File  System  (IFS)  file  TWXRUN. 

The  purpose  of  INPTR  is  to  interactively  construct  the  pro¬ 
cedure  file  XECUTE.  If  the  player  correctly  inputs  the  informa¬ 
tion  together  with  the  appropriate  password,  XECUTE  will  execute 
either  of  three  procedure  files  APEGO,  MIGO,  or  LIGO  (these  are 
discussed  in  Chapter  IV).  Thus,  converting  the  programs  to 
operate  on  a  different  computer  will  only  involve  modifying  these 
three  procedure  files  and  not  any  of  the  programs  (assuming  the 
other  computer  has  a  FORTRAN-77  compiler).  If  the  player  fails 
to  input  the  correct  password  in  three  tries,  XECUTE  will  copy  a 
message  for  the  player  to  get  assistance  and  then  terminate. 

When  a  file  is  written  or  modified  using  a  Honeywell  comput¬ 
er,  the  new  information  is  made  permanent  when  information  is 
read  from  the  same  area  of  the  file.  For  this  reason,  the  dummy 
array  FLUSH  is  often  read  after  a  number  of  "writes”.  According 
to  the  programmers,  this  would  allow  continuation  in  the  event  of 


-  14  - 


* 


accidental  disruption  without  requiring  a  complete  restart  (Ref 
6).  This  activity  was  replaced  by  the  use  of  the  JCL  statements 
REPLACE  and  EXIT,S.  If  the  program  (APE,  MI,  or  LI)  runs  suc- 
cessfully,  the  written  file  is  put  in  an  indirect  access  file. 
If  the  program  is  not  successful  and  an  abort  condition  is 
detected,  the  skipping  of  JCL  is  stopped  by  the  EXIT,S  statement 
and  the  same  files  are  made  permanent.  This  allows  the  player  to 
continue  from  the  point  immediately  prior  to  the  error  rather 
than  requiring  a  total  restart. 

Utility  Programs.  Since  16  out  of  the  24  data  files  used  by 
TWX  are  binary  direct  access,  modifications  to  them  can  only  be 
made  by  using  interactive  programs.  Rather  than  have  one  program 
capable  of  using  a  variety  of  formats,  a  different  program  was 
written  for  each  format.  This  resulted  in  ten  read/read  and 
modify  prot  ams  (Table  III).  These  programs  are  all  capable  of 
reading  their  applicable  'file(s)  and  many  offer  modification  op- 
tions.  They  all  assume  that  the  file  to  be  read/modified  is  ac~ 
cessible  as  device  1  (in  other  words,  "TAPE1"). 


i 
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TABLE  III 


Read  and  Modification  Utility  Programs 


Program 

Applicable 

File 

RABREAD 

RABxi? 

RACREAD 

RACx 

RAPREAD 

RAPx//,  RPPx# 

RBLREAD 

(no  changes  permitted) 
RBL xlt,  ERLx// ,  RMUx 

RCRREAD 

RCRx// 

RLUREAD 

RLUxf/ 

RMRREAD 

RMRx# 

RPPREAD 

(no  changes  permitted) 
RPPx// 

RTGREAD 

RTGx// 

R2MREAD 

R2Mx# ,  R4Mx# ,  RLGx  and 

RMRx//  (logicals  are 
displayed  as  integers) 

Using  these  programs  to  modify  a  file  requires  the  use  of 
the  TUX  Data  Base  Manual  (Ref  2)  since  these  programs  print  only 
values  of  the  data,  not  meanings. 

The  operation  of  these  utility  programs  is  not  automatic. 
Unlike  the  simulation  programs  which  have  procedure  files  to  ac¬ 
cess  the  necessary  tapes,  the  utility  programs  must  be  manually 
accessed,  compiled  and  executed  by  the  user  with  its  appropriate 
input  file  also  manually  accessed  by  the  user.  Thus,  deliberate 
and  purposeful  activities  preceed  the  modification  of  lata  files. 
This  is  to  prevent  accidental  modification  to  the  data  files. 
All  utility  programs  are  stored  in  the  IFS  file  TWXUTIL. 
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Library  Routines 


One  of  the  goals  of  this  effort  was  to  minimize  the  modifi¬ 
cations  to  the  program  code*  Since  all  of  the  programs  at  some 
time  or  other  use  routines  which  are  intrinsic  only  to  a 
Honeywell  computer,  this  meant  that  equivalent  coding  for  those 
routines  had  to  be  developed  and  added  to  a  TWX  library  called 
TWXLIB  (Appendix  B) .  Thus,  instead  of  modifying  the  program  cod¬ 
ing,  this  library  containing  routines  with  the  same  names  as 
Honeywell  specific  system  routines  is  declared  and  the  equivalent 
functions  are  performed . 

Verification 


There  are  two  types  of  coding  now  in  the  TWX  programs;  modi¬ 
fied  coding  and  completely  new  routines  (library  routines)  which 
were  developed  at  AFIT.  Since  no  documentation  was  available  for 
the  original  set  of  programs,  verification  of  the  modified  coding 
was  limited  to  verifying  that  the  programs  executed  like  the  ori¬ 
ginals.  The  library  routines  were  all  verified  using  test  pro¬ 
grams  which  would  execute  each  aspect  of  each  routine .  Since 
these  programs  were  only  for  testing  purposes,  they  were  retained 
until  the  verification  was  completed  and,  thus,  are  no  longer  on 
file. 
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Ill  Segmentation 


The  major  interactive  programs  APE,  MI,  and  LI  have  two 
features  in  common:  1)  a  central  memory  requirement  in  excess  of 
65K  (the  maximum  interactive  core  limit  for  the  CDC)  and  2)  they 
were  originally  written  in  a  highly  structured  form  with  each 
subroutine  either  modifying  a  particular  set  of  arrays  or  check¬ 
ing  and  editing  input  data.  This  implied  that  these  programs 
could  be  run  where  only  the  main  driver  and  a  very  few  subrou¬ 
tines  would  be  in  central  memory  at  any  one  time  without  unduly 
increasing  the  run  time.  This,  in  turn,  implied  that  some  method 
of  overlaying  could  be  used  to  decrease  the  central  memory  re¬ 
quirement.  Of  all  possible  methods  of  overlaying,  segmentation 
was  chosen  because  of  its  transportability,  greater  flexibility 
(Ref  3:7-1),  and  because  it  does  not  require  changes  to  the 
source  programs. 

The  specific  methods  of  segmentation  are  described  in 
Chapter  7  of  the  CYBER  LOADER  VERSION  1  Reference  Manual  (Ref  3) 
but  are  not  easily  understood.  Along  with  the  specific  rules  for 
segmentation,  the  following  rules  have  been  found  to  be  helpful: 

1.  In  a  TREE  directive,  the  label  field  must  not  contain  a 
program,  subroutine,  entry  point,  or  function  name  that 
is  in  the  object  deck  to  be  segment  loaded.  Also,  this 
name  must  appear  in  the  specification  filed  of  another 
TREE  directive.  If  it  does  not,  it  will  be  interpret- 
ted  as  another  root  segment. 

2.  A  function  or  subroutine  which  is  to  be  used  by  more 
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chan  one  segment  must  be  in  Che  directive  field  or 
fields  of  one  or  more  INCLUDE  directives;  it  cannot  be 
in  both  an  INCLUDE  directive  field  and  a  TREE  directive 
field. 

3.  The  label  field  of  an  INCLUDE  field  must  be  a  function, 
subroutine,  or  program  name  and  cannot  be  an  arbitrary 
label  or  entry  point  name. 

The  first  step  taken  in  segmenting  the  TWX  programs  was  to 
determine  the  subroutine  interactions  (that  is,  which  subroutines 
call  which  other  subroutines)  and  then  construct  a  tree  depicting 
those  interactions. 

The  major  tree  (or  “root  segment"  )  was  constructed  by  using 
the  main  program  as  the  root  and  the  subroutines  called  by  it  as 
the  branches.  In  the  case  where  a  subroutine  in  a  branch  would 
call  other  subroutines,  another  tree  was  made  using  this  subrou¬ 
tine  as  its  root  and  the  subroutine  name  in  the  original  tree  was 
replaced  with  the  label  of  this  new  tree.  This  procedure  was 
used  in  segmenting  APE,  MI,  and  LI. 

For  example,  the  AAFCE  Planning  Executive  Program,  APE, 
calls  subroutine  PI  (file  initialization),  OPTN  (file  modifica¬ 
tion  option  processor),  and  RAPUP  (final  data  base  modifica¬ 
tions).  The  first  two  subroutines  both  call  numerous  subroutines 
and  operate  independently  so  both  were  declared  as  trees.  This 
tree  structure  was  converted  into  a  set  of  SEGLOAD  directives  for 
processing  by  the  CDC  loader.  In  order  to  segment  a  program,  the 
source  is  first  compiled,  the  object  deck  is  loaded  and  then 
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operated  on  by  the  SEGLOAD  directives.  The  segmented  object  deck 
Is  then  cataloged. 

To  automate  this  process,  procedure  files  of  JCL  and  SEGLOAD 
directives  were  developed  to  convert  the  source  decks  of  APE,  MI 
and  LI  into  segmented  object  decks  (Appendix  C).  The  procedure 
files  also  catalog  the  resulting  decks. 

To  execute  any  one  of  these  procedure  files,  the  command  is 

BEGIN, pname , lfnl , If n2 . 


where : 

pname  *  procedure  name  (APESEG,  MISEG  or  LISEG) 

lfnl  ■  local  file  name  of  the  procedure  file 

lfn2  »  local  file  name  of  the  source  deck  (APE,  Ml,  or  LI) 

If  the  local  file  name  is  the  same  as  the  procedure  name, 

the  procedure  file  is  executed  with  the  command: 


pname, lfn2. 


where : 

pname  •  procedure  name  (APESEG,  MISEG  or  LISEG) 

lfn2  ■  local  file  name  of  the  source  deck  (APE,  MI,  or  LI) 
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IV  Operation  of  the  Modified  TWX  Programs 


There  are  two  groups  of  people  who  need  to  be  Involved  when¬ 
ever  the  TWX  Is  executed:  players  and  administrators.  The 
players  are  those  people  who  perform  the  analyses  of  the  outputs, 
develop  the  air  and  land  orders  used  In  the  simulation  and  Input 
the  data  by  executing  the  programs  APE,  MI,  and  LI.  The  activi¬ 
ties  of  the  players  is  described  in  the  Theater  Warfare  Exercise 
(TWX)  Players'  Handbook  (Draft  Copy)  (Ref  8). 

The  administrators  are  responsible  for  the  initialization  of 
the  exercise  and  the  direction  of  student  activities.  They  also 
represent  the  "higher  authority"  capable  of  authorizing  increases 
of  forces  and  use  of  nuclear  resources.  These  are  the  people 
responsible  for  the  operation  of  the  TWX,  execution  of  the  batch 
programs  SQ,  MR,  IP,  AR,  AG,  MA,  LB,  OR,  and  LA,  and  resetting  of 
the  file  lock  flags  and  exercise  day  indicators  (Table  IV).  They 
are  also  responsible  for  the  execution  of  the  procedure  SETUP 
(Appendix  D)  and  the  maintenance  of  the  TWX  files  (Appendix  E). 
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TABLE  IV 


Daily  File  Modifications 


General 


The  operation  of  the  TWX  is  in  two  phases:  initialization 
and  execution.  Initialization  is  essentially  the  set-up  of  the 
necessary  files  and  object  decks.  It  also  includes  the  running 
of  programs  to  produce  the  data  needed  by  the  players  for  plan¬ 
ning.  The  execution  phase  invloves  the  cyclical  execution  of  in¬ 
teractive  and  batch  programs  to  simulate  the  daily  publishing  and 
execution  of  air  and  land  orders.  The  initialization  phase  oc¬ 
curs  any  time  prior  to  the  exercise  while  the  execution  phase 
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lasts  for  a  maximum  of  five  simulated  days. 


Initialization 


The  first  step  in  executing  the  TVX  is  the  construction  of 
all  required  object  decks  and  libraries  (Table  V).  This  can  be 
performed  manually  but  the  procedure  file  SETUP  (Appendix  D)  has 
been  developed  for  this  purpose.  To  execute  this  procedure  file, 
it  is  necessary  to  make  a  local  copy  using  the  IFS  command 
"GET, SETUP, ID-TWXRUN"  and  then  execute  it  with  the  statement 

"SETUP." 

f 

t 

TABLE  V 

\  TWX  Object  Decks  and  Libraries 


Programs 

Object 

Decks 

APE 

APELGO 

AR 

ARLGO 

LB 

LBGO 

LI 

LIGO 

MI 

MI  GO 

Side 

Libraries 

BLUE  DATA11,  DATA12,  DATA13 

RED  DATA21,  DATA22,  DATA23 

Both_ BACKUP,  BATCHIN,  MASTER 


The  next  step  is  to  execute  the  Weapon  System  Summary  pro¬ 
gram  (WSS).  This  too  has  been  automated;  the  file  WSSGO  is  re- 
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trieved  from  Che  Indirect  library  file  TWXRUN  and  then  executed 


with  the  statement  "WSSGO.”  The  output  from  this  program  is 
stored  in  the  indirect  library  file  PRINT  and  is  needed  by  the 
players  for  the  duration  of  the  exercise  (it  contains  such  infor- 
mation  as  the  aircraft  names,  weapon  loadings,  and  effectiveness 
indices) . 

After  the  initial  introduction  to  the  exercise,  the  players 
enter  the  preplanning  stage.  This  stage  requires  that  the  batch 
programs  AR,  AG,  MA,  LB,  OR,  and  LA  be  sequentially  executed. 
The  output  files  ARPLB1 ,  ARPLR1 ,  LBPLB1,  LBPLR1 ,  0RP2B1,  0RP4B1, 
ORP2R1,  ORP4R1 ,  LAP2B1,  LAP4B1 ,  LAP2R1 ,  and  LAP4R1  are  then  re¬ 
trieved  from  the  indirect  library  file  PRINT  and  given  to  the 
players  for  their  preplanning.  The  execution  phase  of  the  exer¬ 
cise  now  begins. 

Execution 


The  execution  phase  of  the  TUX  begins  with  the  players  performing 
their  mission  planning  and  entering  data  with  the  interactive 
programs  APE,  MI  and  LI.  When  these  programs  have  been  executed, 
the  batch  programs  S Q,  MR,  IP,  AR,  AG,  MA,  LB,  OR,  and  LA  are 
sequentially  executed  and  the  output  files  are  given  to  the 
players  for  the  next  day's  mission  planning  (each  simulat  on  day 
consists  of  a  day  and  a  night  cycle).  This  phase  continues  until 
the  exercise  administrators  terminate  the  exercise  for  a  maximum 
of  five  simulation  days. 

In  the  original  TWX,  MR  through  LA  were  all  major  subrou- 
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tines  of  a  single  program,  XX  (the  source  for  the  main  driver  XX 
is  retained  as  TWXSRCE  in  the  indirect  library  file  TVXPROG  ). 
These  programs  are  run  seperatedly  to  improve  flexibility  and  to 
decrease  turn-around  time.  In  fact,  only  AR  and  LB  require  too 
much  central  memory  to  be  executed  in  time  sharing  mode  (it 
should  be  noted  that  OR  does  require  segmentation  to  execute  in 
time  sharing  mode).  Rather  than  have  an  executive  program  which 
sequentially  executes  the  batch  routines,  the  JCL  for  the  modi¬ 
fied  programs,  beginning  with  AR,  accesses  the  procedure  file  for 
the  succeeding  routine  and  executes  it.  These  procedure  files 
create  and  batch  the  JCL  necessary  to  execute  the  succeeding  pro¬ 
gram.  Each  of  these  procedure  files  has  the  suffix  GOB  and  is 
stored  in  the  indirect  library  file  TWXRUN.  SQ,  MR,  and  IP,  how¬ 
ever,  must  be  executed  Individually  with  procedure  files  SQGO, 
MRGO,  and  IPGO  respectively. 

After  all  batch  programs  have  been  executed,  the  appropriate 
data  files  are  replaced  and  the  cycle  begins  again  with  the 
players  performing  analysis  and  planning  and  again  entering  data 

I 

using  the  interactive  programs  APE,  MI  and  LI. 
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V 


RECOMMENDATIONS 


Because  of  Che  amount  of  cime  which  was  required  Co 
translate  the  data  and  programs  into  a  modifiable  form,  some 
problem  areas  could  not  be  addressed  with  this  thesis  effort. 
This  includes  areas  such  as  validation  of  the  original  algo¬ 
rithms,  streamlining  of  the  batch  programs,  modification  of  the 
land  battle  program,  and  complete  and  thorough  documentation  of 
all  programs. 

The  validation  and  documentation  of  the  original  coding  was 
not  performed  because  the  necessary  analyst's  manuals  are  either 
non-existent  or  are  too  scarce  to  be  made  available.  The  set  of 
TUX  programs  used  in  the  CAWC  are  continually  being  modified. 
Thus,  it  is  recommended  that  the  programs  at  AFIT  be  documented 
without  referrence  to  future  manuals  from  Maxwell  AFB. 

The  air  and  land  battle  programs  (AR  and  LB  respectively) 
both  have  central  memory  requirements  in  excess  of  225K.  Because 
of  this  and  Che  large  amounts  of  central  processor  and 
input/output  time  required,  both  jobs  have  very  long  turn-around 
times.  One  was  of  streamlining  both  programs  would  be  to  segment 
them.  There  are  two  procedure  files  in  the  indirect  library  file 
TWXRUN  which  have  been  designed  to  compile,  segment,  and  catalog 
the  segmented  object  decks  of  AR  and  LB.  These  procedure  files 
are  ARSEG  and  LBSEG  respectively.  Time  did  not  permit  the  final 
verification  of  either  of  these  two  procedure  files. 

Currently,  the  land  battle  program  and  data  files  are  not 
designed  to  provide  information  regarding  future  strategies. 
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This  requires  the  players  who  are  planning  ground-support  air 
sorties  to  guess  what  their  ground  forces  will  be  doing  during 
the  next  day  of  simulation.  This  clearly  needs  to  be  modified. 
A  suggestion  would  be  to  modify  the  printout  so  it  provides  not 
only  the  location  of  the  forces,  but  also  its  direction. 

There  is  no  automatic  resetting  of  data  files.  Whenever 
APE,  MI  or  LI  is  executed,  some  data  file  values  are  changed  to 
indicate  the  status  of  the  user.  If  the  program  terminates  nor¬ 
mally,  these  values  (lock  flags)  are  set  to  1  indicating  that  the 
user  had  completed  the  desired  modifications  of  those  data  bases. 
If  those  data  bases  are  used  by  the  same  program,  the  user  will 
be  denied  access  to  them  until  the  lock  flags  are  set  to  0.  Be¬ 
fore  another  day  of  simulation  can  begin,  the  lock  flags  in  files 
RBLW#,  RRLW#,  RLGW#,  R2MW#,  and  R4MW#  must  be  set  to  0  and  the 
exercise  day  updated  in  files  RLGW#,  RMRR#,  R2MW#,  and  R4MW#. 
The  program  II  (Input  Initialization)  was  designed  to  perform 
this  operation  on  the  Honeywell,  but  II  was  not  modified  because 
of  its  highly  specific  coding.  Currently,  these  file  modifica¬ 
tions  are  made  manually  using  the  utility  programs  described  in 
Chapter  II. 

Finally,  there  is  one  unresolved  problem.  When  either  a 
segmented  or  unsegmented  version  of  MI  is  executed  and  an  invalid 
offensive  counter  air  (OCA),  battle  area  interdiction  (BAI),  or 
interdiction  (IND)  order  is  input,  an  error  condition  is  detected 
and  the  player  is  asked  if  the  order  is  to  be  changed.  Regard¬ 
less  of  whether  the  answer  is  "Y”  or  "N”,  a  Mode  1  error  occurs 
(an  illegal  address  is  specified).  This  condition  appears  to  be 
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the  result  of  the  AO  register  for  subroutine  EDITC1  being  modi¬ 
fied  by  subroutine  CYFMT1.  The  addition  of  "PRINT'’  and  "CONTIN¬ 
UE"  statements  has  not  changed  the  error  condition;  the  error 
remains  in  the  address  for  the  variable,  INTS02. 
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Appendix  A 


INPTGO  Procedure  File/Pro^ 


;ram  Listing 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 


•PROC.INPTGO. 

.*  THE  PURPOSE  OF  THIS  PROCEDURE  FILE 
.*  IS  TO  COMPILE  THE  PROGRAM  "INPTR"  AND 
.*  THEN  CATALOGUE  THE  OBJECT  DECK  AS  "INPTRLGO” 
.*  UNDER  THE  USER'S  ACCOUNT  NUMBER. 

.* 

.*  THE  FIRST  STEP  IS  TO  RETURN  ANY  LOCAL  FILE 
.*  NAMED  "LGO. “ 

RETURN, LGO. 

.*  THEN  "LGO”  IS  REQUESTED. 

REQUEST, LGO,*PF . 

.*  INPTR  IS  NOW  COMPILED. 

FTN5,I«PR0G,L0«0,DB. 

.*  THEN  THE  OBJECT  FILE  IS  CATALOGUED 
CATALOG , LGO , INPTRLGO , XR-FOX , PW-FOX , RP-999 . 

.*  THE  LOCAL  FILE  AREA  IS  CLEANED. 

RETURN , LGO , PROG . 

.*  CONTROL  IS  RETURNED  TO  THE  USER. 

REVERT. 

.* 

.*  THIS  LINE  DEFINES  LOCAL  FILE  "PROG" 

.*  WHICH  WILL  CONTAIN  THE  SOURCE  OF  INPTR 
.DATA, PROG. 
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24 

PROGRAM  INPTR 

25 

COMMON/FILEDA/ICHOIS,  ISEM,  ISIDE,  IATAF 

26 

COMMON/ ITIMS/ITRY 

27 

DATA  ICHOIS/O/,  ISEM/O/,  ISIDE/O/,  IATAF/ 0/ 

28 

0PEN(1 ,FILE“'XECUTE' , ACCESS* 'SEQUENTIAL' ) 

29 

REWIND  1 

30 

CX 

FIND  OUT  WHICH  PROGRAM  IS  TO  BE  RUN 

31 

50 

PRINT  12 

32 

READ  *, ICHOIS 

33 

IF(  ICHOIS  .LT.  4  )  THEN 

34 

IF(  ICHOIS  .LT.  1  )  GO  TO  50 

35 

ITRY  -  0 

36 

CALL  INTER 

37 

IF(  ITRY  .LT.  3  )  THEN 

38 

CALL  BUILD 

39 

CALL  INFORM 

40 

ELSE 

41 

CALL  DONE 

42 

END  IF 

43 

ELSE 

44 

CALL  STOPR 

45 

ENDIF 

46 

STOP 

47 

12 

FORMAT('  DO  YOU  WANT  TO  RUN  THE:',/, 

48 

&'  1)  AAFCE  PLANNING  PROGRAM',/, 

49 

&'  2)  MISSION  PLANNING  PROGRAM',/, 

50 

&'  3)  LAND  MOVEMENT  PROGRAM',/, 

51 

&'  4)  STOP  >') 

52 

END 

32 
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53 

SUBROUTINE  BUILD 

54 

COMMON/FILEDA/ICHOIS,  ISEM,  ISIDE,  IATAF 

55 

CX 

THIS  SUBROUTINE  BUILDS  THE  APPROPRIATE  JCL  FILE 

56 

CX 

TO  ACCESS  ALL  NECESSARY  DATA  FILES. 

57 

CX 

BRANCH  ON  TYPE  OF  PROGRAM 

58 

IF(  ICHOIS  .EQ.  1  )  THEN 

59 

WRITE(l.ll)  ISIDE,  ISEM,  IATAF 

60 

ELSE  IF(  ICHOIS  .EQ.  2  )  THEN 

61 

WRITE(1 , 12)  ISIDE,  ISEM,  IATAF 

62 

ELSE 

63 

WRITE( 1,13)  ISIDE,  ISEM,  IATAF 

64 

ENDIF 

65 

RETURN 

66 

11 

FORMAT( ' . PROC , XECUTE . ' ,  /  , 

67 

&'APEG0,',I1,',',I1,',',I1,'.',/, 

68 

&'EXIT,S.',/, 'REVERT.') 

69 

12 

FORMAT ( ' . PROC , XECUTE. ' , / , 

70 

A'MIGO, ' ,11 , ' ,' ,11 , 11 ,' .' ,/ , 

71 

&'EXIT , S .',/, 'REVERT .' ) 

72 

13 

FORMAT ( ' . PROC , XECUTE . ' , / , 

73 

&'LIG0,',I1,',',I1,',',I1,'.',/, 

74 

&'EXIT,S.',/, 'REVERT.') 

75 

END 
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76 

SUBROUTINE  DONE 

77 

CX 

THIS  SUBROUTINE  BUILDS  A  FILE  THAT  WILL  INFORM 

78 

CX 

THE  USER  OF  HIS  FAILURE  TO  PROPERLY  ACCESS 

THE 

79 

CX 

THE  FILES. 

80 

WR1TE(1 , 12) 

81 

RETURN 

82 

12 

FORMAT( ' . PROC , XECUTE . ' , / , 'CONNECT , OUTPUT. ' 

,/, 

83 

&'COPY , KNUJ 'RETURN , KNUJ .',/ , 

84 

&'RETURN , XECUTE ,LGO 'REVERT. ',/ , 

85 

DATA, KNUJ.',/,'  YOU  ARE  OBVIOUSLY  HAVING 

PROBLEMS 

86 

4'  PLEASE  GET  SOME  HELP.' ,/,' .EOF') 

87 

END 

34 


r 


SUBROUTINE  INFORM 

COMMON/ FILE DA/ I CHOIS ,  ISEM,  ISIDE,  IATAF 
P  IN  12 

FORMATC  PLEASE  SIT  BACK  FOR  A  FEW  MINUTES  WHILE',/, 

&'  YOUR  FILES  ARE  ATTACHED.  THE  PRINTOUT  MAY  BE',/, 

&'  RATHER  MESSY  BUT  IS,  UNFORTUNATELY,  NECESSARY.',/, 

&'  DO  NOT  TOUCH  ANY  OF  THE  KEYS  UNTIL  THE  PROGRAM',/, 

&'  REQUESTS  SOME  INPUT.  THANK-YOU  FOR  YOUR  COOPERATION.') 
RETURN 
END 


r  "n 


98 

SUBROUTINE  INTER 

99 

COMMON/ FILEDA/ ICHOIS,  ISEM,  ISIDE,  IATAF 

100 

COMMON/ITIMS/ITRY 

101 

CX 

THE  PURPOSE  OF  THIS  SUBROUTINE  IS  TO  INTERROGATE 

102 

CX 

THE  STUDENT  TO  DETERMINE  HIS  SEMINAR  #  (ISEM), 

103 

CX 

(ISIDE,  WHERE  1  ->  BLUE  AND  2  ->  RED),  AND  ATA 

104 

CX 

IF  APPLICABLE. 

105 

CX 

106 

CHARACTERS  INPT,  IPASS(12),  SIDE(2),  IANS*1 

107 

DATA  SIDE/'BLUE',  'RED  '/ 

108 

DATA  IPASS/'PASl' , 'PAS2' ,'PAS3' , 'PAS4' , 

109 

&  'PASS', 'PAS6','PAS7','PAS8', 

110 

&  '  'PAS9' ,'PASO' ,'PASA' ,'PASB'/ 

111 

CX 

NOW  INTERROGATE  FOR  SIDE,  SEMINAR,  AND  ATAF 

112 

10 

PRINT  *,'  WHICH  SIDE  ARE  YOU  ON,  RED  OR  BLUE  ? 

113 

READ  23,  INPT 

114 

IF(  INPT  .NE.  'BLUE'  .AND.  INPT  .NE.  'RED  ' 

115 

&  .AND.  INPT  .NE.  '  RED')  THEN 

116 

PRINT  ONLY  "BLUE"  OR  "RED  "  ALLOWED  ' 

117 

GO  TO  10 

118 

END  IF 

119 

ISIDE  -  1 

120 

IF(  INPT  .NE.  'BLUE'  )  ISIDE  -  2 

121 

CX 

GET  THE  SEMINAR  NUMBER 

122 

20 

PRINT  WHICH  SEMINAR  ARE  YOU  IN  (  1  OR  2  )? 

123 

READ  *,ISEM 

124 

IF(  ISEM  .NE.  1  .AND.  ISEM  .NE.  2  )  THEN 

125 

PRINT  ONLY  1  OR  2  ALLOWED  ' 

126 

GO  TO  20 

127 

END  IF 

128 

IF(  ICHOIS  .EQ.  2  )  THEN 

129 

CX 

GET  THE  ATAF  NUMBER 

130 

30 

PRINT  *,'  WHICH  ATAF  (  2  OR  4  )?  >' 

131 

READ  *,  IATAF 

132 

IF(  IATAF  .NE.  2  .AND.  IATAF  .NE.  4  )  THEN 

133 

PRINT  *,'  ONLY  2  OR  4  ALLOWED' 

134 

GO  TO  30 

135 

ENDIF 

136 

END  IF 

137 

CX 

CHECK  IF  INPUT  DATA  IS  CORRECT  SO  FAR 

138 

IF(  ICHOIS  .NE.  2  )  THEN 

139 

IATAF  -  0 

140 

PRINT  12,  SIDE(ISIDE),  ISEM 

141 

ELSE 

142 

PRINT  22,  SIDE (ISIDE),  ISEM,  IATAF 

143 

ENDIF 

144 

READ  13,  IANS 

145 

IF(  IANS  .NE.  'Y'  )  GO  TO  10 

146 

CX 

CALCULATE  THE  PASSWORD  INDEX  FOR  THIS  COMBINATION 

147 

INDEX  -  ISIDE  *6  4-  ISEM  *  3  +  IATAF/ 2  *  8 
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148 

CX 

ASK  FOR  THE  PASSWORD 

149 

40 

PRINT  INPUT  THE  PASSWORD  PLEASE  >' 

150 

READ  23,  INPT 

151 

IF(  INPT  .NE.  IPASS(INDEX)  )  THEN 

152 

ITRY  -  ITRY  +  1 

153 

PRINT  32, INPT 

154 

IF(  ITRY  .LT.  3  )  GO  TO  40 

155 

ELSE 

156 

PRINT  PASSWORD  IS  CORRECT.' 

157 

END  IF 

158 

RETURN 

159 

12 

FORMAT ('  YOUR  INPUTS  ARE:',/,'  SIDE 

:  ' ,  A4 , / , 

160 

&  '  SEMINAR  it  :  ',12,/,/, 

161 

6'  IS  THIS  CORRECT  (  Y  OR  N  )  >') 

162 

22 

FORMAT( '  YOUR  INPUTS  ARE:',/,'  SIDE 

:  ',A4,/ , 

163 

&  '  SEMINAR  #  :  ',12,/,'  ATAF  it 

*  M2 ,/,/, 

164 

&'  IS  THIS  CORRECT  (  Y  OR  N  )  >') 

165 

32 

FORMAT ('  SO  SORRY,  BUT  ',A4,'  IS  NOT  THE 

VALID  PASSWORD.') 

166 

13 

FORMAT(Al) 

167 

23 

F0RMAT(A4) 

168 

END 

37 
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Appendix  U 


Tw'X  Library  Routines  Listings 
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FUNCTION  FLD(  I,  K,  E  ) 

CX**** ******************************* ****** 

cx*  * 

CX*  THE  PURPOSE  OF  THIS  FUNCTION  * 

CX*  IS  TO  RETURN  K  CHARACTERS  OF  WORD  E  * 
CX*  BEGINNING  WITH  POSITION  (1+1).  THIS  IS* 
CX*  THE  FORTRAN  77  EQUIVALENT  TO  FUNCTION  * 
CX*  FLD  AS  DESCRIBED  ON  PAGE  6-7  OF  THE  * 
CX*  HONEYWELL  FORTRAN  MANUAL.  HOWEVER,  * 
CX*  ONLY  THE  FIRST  FORM  OF  FLD  IS  HANDLED  * 
CX*  BY  THIS  FUNCTION.  THE  OTHER  TYPE  IS  * 


CX*  HANDLED  BY  FUNCTION  FLD2.  * 

CX*  * 

CX********  C  A  U  T  ION  *************** 
CX*  * 

CX*  E  MUST  BE  OF  CHARACTER*36  TYPE,  * 

CX*  0  .LE.  I  .LE.  35  * 

CX*  1  .LE.  K  .LE.  36  * 

CX*  * 


CX********* *********************** ********* 

cx 

CHARACTER  *(*)  E 
J1  -  I  +  l 
J2  -  J1  +  K  -  1 

FLD  -  FLOAT(  ICH2N(  E(J1:J2)  )  ) 

RETURN 

END 


' 

28 

•  .  H 

FUNCTION  ICH2N(  ICH  ) 

29 

C 

i  S 

C****************************************q 

c 

C 

I  32 

cx 

AUTHOR:  ANTHONY  WAISANEN  C 

33 

cx 

CAPT  USAF  C 

|  -  34 

cx 

DECEMBER  1981  C 

i  35 

c 

C 

I  36 

c 

THE  PURPOSE  OF  THIS  FUNCTION  C 

;  f  37 

c 

IS  TO  CONVERT  A  CHARACTER  STRING  TO  C 

i  38 

c 

AN  INTEGER.  C 

!  39 

c 

C 

[  :  40 

c 

**********  C  A  U  T  ION  **********  Q 

>  41 

c 

c 

f  ;  42 

c 

*wu  UAO  D&U&A  DL  All  XII  A  LULU  C 

:■  43 

c 

C 

[  44 

C* ********************************* ******£ 

i  45 

c 

i  ,  46 

CHARACTER  *(*)  ICH 

47 

c 

48 

cx 

FIND  L  (NUMBER  OF  CHARACTERS  IN  ICH) 

f  49 

c 

50 

L  -  LEN(  ICH  ) 

51 

c 

52 

cx 

CONVERT  ICH  TO  AN  INTEGER 

[  1  53 

c 

,  54 

ICH2N  -  0 

:  55 

DO  15  I  -  1,  L 

56 

c 

MOVE  ICH2N  OVER  1  DECIMAL  PLACE 

57 

ICH2N  -  ICH2N  *  10 

f  58 

ICHADD  -  ICHAR(  ICH(I:I)  )  *  16 

L  59 

CX  ADJUST  IF  OUTSIDE  OF  BOUNDS 

60 

IF(  ICHADD  .GT.  9  )  ICHADD  -  0 

61 

CX 

62 

ICH2N  -  ICH2N  +  ICHADD 

t  63 

15  CONTINUE 

l  64 

C 

65 

RETURN 

66 

' 

END 

■ 

i 

' 

H 

67 

FUNCTION  RAND(  X  ) 

68 

*  ****  *  ***  **  *  *  **  A*  **  ************  **  * 

69 

CX* 

* 

70 

cx* 

IN  THE  ORIGINAL  PROGRAMS,  "RAND"  WAS  * 

71 

CX* 

USED  TO  RETURN  A  UNIFORM  RANDOM  NUMBER  * 

72 

cx* 

BETWEEN  0  AND  L.  THIS  IS  EQUIVALENT  TO* 

73 

cx* 

THE  CDC  FUNCTION  "RANF,"  THEREFORE,  * 

74 

cx* 

RANF  WILL  BE  USED.  * 

75 

cx* 

* 

76 

CX********  C  A  U  T  ION  ******************* 

77 

CX* 

* 

78 

CX* 

THIS  FUNCTION  MUST  BE  CHANGED  IF  A  * 

79 

CX* 

DIFFERENT'  MAIN  FRAME  IS  TO  BE  USED.  * 

80 

CX* 

* 

81 

cx************ ******************** ********** 

82 

CX 

83 

Y  -  .273  E  03 

84 

Z  -  .1  E  01 

85 

X  •  AMOD(  Y*X,  Z  ) 

86 

RAND  -  X 

87 

RETURN 

88 

END 
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T 


89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 


INTEGER  FUNCTION  ISETSW(  N  ) 

cx** *************************** ****** 

cx*  * 

CX*  THE  PURPOSE  OF  THIS  FUNCTION  * 
CX*  IS  TO  SENSE  THE  VALUE  OF  THE  NTH* 
CX*  BIT  IN  THE  PROGRAM  SWITCH  WORD.  * 
CX*  IN  THE  TWX  PROGRAM,  THE  SWITCH  * 
CX*  WORD  IS  ONLY  USED  TO  SWITCH  FROM* 
CX*  THEATER  LEVEL  SIMULATION  (  WHERE* 
CX*  BIT  #35  ■  0  )  TO  CORPS  LEVEL  * 
CX*  SIMULATION  (BIT  #35  -  1).  SINCE* 
CX*  ONLY  THEATER  LEVEL  SIMULATIONS  * 
CX*  ARE  DESIRED,  THIS  FUNCTION  WILL  * 
CX*  ALWAYS  RETURN  AO.  * 

CX*  * 

0X**** *********************** ******** 

cx 

ISETSW  -  0 

RETURN 

END 
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109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 
127 


INTEGER  FUNCTION  KOMPCH(  IW0RD1,  Nl,  IW0RD2,  N2,  M  ) 

Cx***************** ****************** ******* 

CX*  THIS  FUNCTION  COMPARES  M  CHARACTERS  OF  IW0RD1 
CX*  (BEGINNING  WITH  Nl)  WITH  M  CHARACTERS  OF  IW0RD2 
CX*  (BEGINNING  WITH  N2).  KOMPCH  -  0  IF  THEY  ARE 
CX*  EQUAL  1  IF  THEY  ARE  NOT. 

CX* 

CX*********  CAUTION  *************** 

CX*  IW0RD1  AND  IW0RD2  MUST  BE  CHARACTER  TYPE 
CX* 

cx***************************************** 

CHARACTER  *(*)  IW0RD1,  IW0RD2 
LAST1  -  Nl  +  M  -  1 
LAST2  -  N2  +  M  -  1 
CX  INITIALIZE  KOMPCH  TO  "FALSE" 

KOMPCH  -  1 

CX  COMPARE  IW0RD1  AND  IW0RD2 

IF(  IW0RD1(N1:LAST1)  .EQ.  IW0RD2(N2:LAST2)  )  KOMPCH  -  0 
RETURN 


128 


END 
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LOGICAL  FUNCTION  CHKBIT(BIT, ARRAY, DIM) 


129 

130 

C 

131 

C 

132 

C 

133 

C 

134 

CX 

135 

C 

136 

CX 

137 

CX 

138 

139 

140 

C 

141 

142 

143 

144 

145 

CHECKS  TO  SEE  IF  BIT  IS  SET  IN  ARRAY  -  TRUE/ FALSE 
DEPENDING  UPON  BIT. 

PIERCE . 1980 

WAISANEN . 1982 

INTEGER  BIT, DIM, ARRAY, WORD, BIT1 
DIMENSION  ARRAY (DIM) 

INTEGER  B IT, DIM, WORD , BIT! 

CHARACTER*36  ARRAY(*) 

WORD-( (BIT-1 )/36)+l 
BIT1«M0D(BIT-1,36) 

CHKBIT-(FLD(BIT1 , 1 .ARRAY (WORD) ) .EQ. 1) 

RETURN 

END 
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SUBROUTINE  BCDASC(  WORD1,  WORD2,  N  ) 

CX***************************************** 

cx*  *■ 

CX*  THE  PURPOSE  OF  THIS  SUBROUTINE  * 
CX*  IS  TO  EQUATE  WORD1  WITH  WORD2.  * 

CX*  IT  IS  A  NECESSARY  SUBROUTINE  WHEN  * 

CX*  USING  A  HONEYWELL  COMPUTER  SINCE  NOT  * 
CX*  ALL  VARIABLES  ARE  KEPT  AS  ASCII.  FOR  * 
CX*  EXAMPLE,  DATA  STORED  ON  A  DIRECT  * 

CX*  ACCESS  FILE  IS  BCD  WHEREAS  DATA  READ  * 


CX*  INTERACTIVELY  IS  ASCII.  * 
CX*  SUCH  IS  NOT  THE  CASE  WITH  THE  CDC  * 
CX*  SO,  SINCE  THE  PROGRAMS  USE  THIS  * 
CX*  ROUTINE  REGULARLY,  THIS  DUMMY  ROUTINE  * 
CX*  EXISTS  RATHER  THAN  MAKING  ALL  CHANGES.* 
CX*  * 
Cx********  CAUTION  *************** 
CX*  * 
CX*  WORD1  AND  WORD2  MUST  BE  CHARACTER  * 
CX*  TYPE.  N  IS  A  DUMMY  ARGUMENT.  IN  THE  * 
CX*  ORIGINAL  VERSION,  IT  DETERMINED  THE  * 
CX*  NUMBER  OF  CHARACTERS  TO  BE  CONVERTED.  * 
CX*  * 


cx***************************************** 

cx 

CHARACTER  *(*)  WORDI,  WORD2 

WORD2  -  WORDI 

RETURN 

END 
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175 

SUBROUTINE  BLNKOU(  BUFFR  ) 

176 

CX 

177 

178 

CX* 

* 

179 

CX* 

THE  PURPOSE  OF  THIS  SUBROUTINE  * 

180 

CX* 

IS  TO  "BLANK-OUT"  A  CHARACTER  STRING.* 

181 

CX* 

* 

182 

CX********  CAUTION  *************** 

183 

CX* 

* 

184 

CX* 

BUFFR  MUST  BE  CHARACTER  TYPE.  * 

185 

CX* 

* 

186 

cx******************** ********************* 

187 

cx 

188 

CHARACTER  *(*)  BUFFR 

189 

WRITE(BUFFR,'(A1)')  '  ' 

190 

RETURN 

191 

END 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 


SUBROUTINE  CALLS S(  N  ) 

cx***************************************** 

cx 

CX  THIS  SUBROUTINE  IS  USED  BY  THE  HONEYWELL 
CX  TO  TRANSMIT  JOB  CONTROL  LANGUAGE  (JCL) 

CX  FROM  AN  EXECUTING  PROGRAM  TO  THE  SYSTEM. 
CX  THE  FOLLOWING  CODING  IS  JUST  A  DUMMY. 

CX 

CX*****6* ********************* ************* 

cx 

CHARACTER  *(*)  N 

RETURN 

END 
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205 

SUBROUT INE  CONCAT ( STR1 , N1 , STR2 , N2 , N3 ) 

206 

C 

207 

C*****************************************************C 

208 

c 

C 

209 

cx 

AUTHOR:  ANTHONY  WAISANEN 

c 

210 

cx 

CAPT  USAF 

c 

211 

cx 

DECEMBER  1981 

c 

212 

c 

c 

213 

c 

THE  PURPOSE  OF  THIS  SUBROUTINE  IS  CONCATINATE 

c 

214 

c 

A  NUMBER  OF  CHARACTERS  (N3)  OF  A  CHARACTER 

c 

215 

c 

STRING  (STR1)  BEGINNING  WITH  THE  N1  CHARACTER 

c 

216 

c 

WITH  N3  CHARACTERS  OF  ANOTHER  CHARACTER  STRING 

c 

217 

c 

(STR2)  BEGINNING  WITH  ITS  N2  CHARACTER. 

c 

218 

c 

c 

219 

C  **********  C  A  U  T  ION  ********** 

c 

220 

C 

c 

221 

C 

N2  +  N3  -  1  SHOULD  NOT  EXCEED  THE  NUMBER  OF 

c 

222 

C 

CHARACTERS  IS  STR2  OR  STRANGE  THINGS  WILL  RESULT. 

c 

223 

c 

c 

224 

c*****************************************************c 

225 

c 

226 

CHARACTER  *  1  STR1,  STR2 

227 

LAST1  -  N1  +  N3  -  1 

228 

LAST 2  «  N2  +  N3  -  1 

229 

c 

230 

STR1(N1 :LAST1)  -  STR2(N2:LAST2) 

231 

c 

232 

RETURN 

233 

END 

49 


SUBROUTINE  CREATE (  LUD,  ISIZE,  N,  ISTAT  ) 

cx********************* ***************** 

CX*  THE  PURPOSE  OF  THIS  SUBROUTINE  IS  * 

CX*  TO  CREATE  A  LOCAL  DIRECT  ACCESS  * 

CX*  FILE.  IT  IS  ESSENTIALLY  THE  EQUI-  * 

CX*  VALENT  OF  THE  HONEYWELL  SUBROUTINE  * 

CX*  OF  THE  SAME  NAME.  * 

CX***************** *********** ********** 

CX 

OPEN(  UNIT-LUD,  RECL-ISIZE,  IOSTAT-ISTAT,  ERR-10, 
&  ACCESS-'DIRECT'  ) 

IF(  ISTAT  .NE.  0  )  THEN 

10  PRINT*,'  TROUBLE  IN  CREATE  WITH  ISTAT  -'.ISTAT 
ENDIF 
RETURN 
END 


\ 


234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 
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250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 


SUBROUTINE  DATIM(DAYT, THYME) 

C 

C  **THIS  ROUTINE  RETURNS  AN  8  CHARACTER  DATE  ('DAYT')  FIELD  AND  A  REAL 
C  **VALUE  OF  TIME  ('THYME')  IN  THE  FORM  OF  'MM/DD/YY'  AND  HH.XXXXX 
C  **(THYME  IS  A  REAL  VARIABLE). 

CX  **AUTH0R:  WAISANEN  2  DEC  81 
CX  THIS  SUBROUTINE  IS  COMPLETELY  SYSTEM  DEPENDENT 
CX  BECAUSE  OF  THE  MAY  THE  CURRENT  DATE  AND  TIME 
CX  ARE  CALLED.  DEPENDING  ON  THE  PARTICULAR  SYSTEM 
CX  BEING  USED,  THE  CALLS  TO  "DATE”  AND  "TIME" 

CX  SHOULD  BE  ALL  THAT  REQUIRE  MODIFICATION. 

C 

CX  THIS  SUBROUTINE  HAS  BEEN  MODIFIED  FOR  THE 


263 

264 

265 

266 

267 

268 


CX  CYBER/ CDC  MAINFRAME 

CHARACTER* 10  DATE,  CLOCK,  DUM,  DAYT*8 
REAL  THYME 

CX  FIRST,  GET  THE  CURRENT  DATE 
DUM  -  DATE(0> 

DAYT  -  DUM(2:9) 


269 

270 

271 

272 

273 


280 

281 


C  NOW  FIND  THE  TIME 
DUM  -  CLOCK(O) 

C  THE  CHARACTER  STRING  'DUM'  IS  OF  THE  FORM: 

C  “HH.MM.SS. 

C  AND  MUST  BE  CONVERTED  TO  THE  REAL  VARIABLE  'THYME' 


274 

THYME 

-  FLOAT ( 

( 

I CHAR (  DUM( 2:2)  ) 

- 

16  ) 

* 

10  + 

275 

& 

( 

I CHAR (  DUM(3: 3)  ) 

- 

16  ) 

) 

+ 

276 

& 

FLOAT ( 

( 

(  ICHAR(  DUM(5:5) 

) 

-  16 

) 

*  10  + 

277 

& 

(  I CHAR (  DUM(6 : 6) 

) 

-  16 

) 

)  *  60  + 

278 

& 

(  I CHAR (  DUM( 8:8) 

) 

-  16 

) 

*  10  + 

279 

& 

(  ICHAR(  DUM(9:9) 

) 

-  16 

) 

)  /  3600.0 

RETURN 

END 


f 


282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 


SUBROUTINE  DETACH(  IFILE,  ISTAT  ) 

cx***************************************** 


cx*  * 

CX*  THIS  SUBROUTINE  IS  THE  FORTRAN  77  * 
CX*  EQUIVALENT  OF  THE  HONEYWELL  ROUTINE  * 
CX*  OF  THE  SAME  NAME.  UNLIKE  THE  HONEY-  * 
CX*  WELL  ROUTINE,  TAPE#  IFILE  IS  NOT  * 
CX*  RETURNED  BUT  IS  ONLY  CLOSED.  * 
CX*  IF  ISTAT  .NE.  0,  THEN  AN  ERROR  HAS  * 
CX*  OCCURED  AND  TAPE#  IFILE  MAY  NOT  BE  * 
CX*  PROPERLY  CLOSED.  * 
CX*  * 
Cx********  CAUTION  *************** 
CX*  * 
CX*  THERE  ARE  NO  CAUTIONS  WITH  THIS  * 
CX*  ROUTINE.  * 
CX*  * 


cx********************************* ******** 

CLOSE (  UNIT-IFILE,  IOSTAT-ISTAT,  ERR-10  ) 

CX  ERR  IS  SPECIFIED  TO  FORCE  THE  PRINTING  OF  THE 
CX  ERROR  STATEMENT. 

10  IF(  ISTAT  .NE.  0  )  THEN 
PRINT  12,  ISTAT,  IFILE 
END  IF 
RETURN 

12  FORMAT('  DETACH  ERROR  #  ',13,'  WITH  TAPE  ',12) 
END 


52 


309 

SUBROUTINE  FLD2(  I,  K,  E,  N  ) 

310 

cx**************** ****** ******************* 

311 

cx* 

* 

312 

cx* 

THE  PURPOSE  OF  THIS  SUBROUTINE 

* 

313 

cx* 

IS  TO  SET  K  CHARACTERS  OF  WORD  E  TO  If 

N* 

314 

cx* 

BEGINNING  WITH  POSITION  (1+1).  THIS 

IS* 

315 

cx* 

THE  FORTRAN  77  EQUIVALENT  TO  SECOND 

* 

316 

cx* 

FORM  OF  THE  FUNCTION  FLD  AS  DESCRIBED 

* 

317 

cx* 

ON  PAGE  6-7  OF  THE  HONEYWELL  FORTRAN 

* 

318 

cx* 

MANUAL. 

* 

319 

cx* 

* 

320 

Cx********  CAUTION  *************** 

321 

CX* 

* 

322 

cx* 

E  MUST  BE  OF  CHARACTER*36  TYPE, 

* 

323 

cx* 

0  .LE.  I  .LE.  35 

* 

324 

cx* 

1  .LE.  X  .LE.  36 

* 

325 

cx* 

* 

326 

cx*********** ********************* ********* 

327 

cx 

328 

CHARACTER  *(*)  E,  NUM*1 

329 

CALL  N2CH(  NUM,  N  ) 

330 

DO  15  J  -  1,  K 

331 

IPOS  -  J  +  I 

332 

E(IPOS:IPOS)  -  NUM 

333 

15 

CONTINUE 

334 

RETURN 

335 

END 
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336 

CX*#RUNH  *- ; FKADY09 /DO  70 / FKADYLB/ OBJECT/ ILLEGAL(N0G0 ) 

337 

CX 

SUBROUTINE  ILLEGAL(IPOS) 

338 

SUBROUTINE  ILLEGA(IPOS) 

339 

C 

340 

c 

WRITTEN  BY  CAPT.  PIERCE . 5  DEC  1979 

341 

CX 

MODIFIED  BY  CAPT  WAISANEN. . . .MAR  1982 

342 

c 

343 

CHARACTER*11  FMT 

344 

DATA  FMT/' (XXX, ")'/ 

345 

c 

346 

IF(. NOT. (IPOS. LE.77))GO  TO  10 

347 

c 

THEN 

348 

CX 

ENCODE(FMT,100)IPOS 

349 

WRITE(FMT, 100)IPOS 

350 

WRITE(6 ,FMT) 

351 

GO  TO  20 

352 

c 

ELSE 

353 

10 

CONTINUE 

354 

WRITE(6 , 200)IPOS 

355 

20 

CONTINUE 

356 

c 

END  IF 

357 

CX100 

F0RMAT(T2,I2) 

358 

100 

FORMAT(' ('  ,  12 ,  'X ")') 

359 

200 

FORMAT(60X, 'POSITION', 13, 

360 

RETURN 

361 

END 

I 


362 

CX 

*f/RUNH  *■; FKADY01/S0URCE/TWXLIB/ SLDSBUJ 

363 

CX 

THE  FOLLOWING  SUBROUTINE  HAS  BEEN  DETERMINED 

364 

CX 

TO  BE  UNNECESSARY.  THEREFORE,  IT  HAS  BEEN  DELETED  AND 

365 

CX 

REFERENCES  TO  IT  HAVE  BEEN  MODIFIED  TO  'MSORTY'. 

366 

CX 

367 

CX 

SUB  ROUT INE  MBSORTY ( BLF , ITAC , SRATE , SFACT , ACSORT ) 

363 

c 

369 

c 

BLALOCK: 9  DEC  77 

370 

c 

CHITWOOD: 6  APR  81 

371 

c 

CALCULATE  THE  NORMAL  SORTIES 

372 

c 

373 

CX 

ACS0RT-A1NT(BLF*FL0AT(ITAC)*SRATE*SFACT) 

374 

CX 

RETURN 

375 

CX 

END 

376 

C 

*tfRUNH  ** ; FKADYQ1/CSTR/ TWXLIB/ CLDSGUJ (NOGO ) 

377 

SUBROUT INE  MSORTY ( BLF , ITAC , SRATE , SFACT , ACSORT) 

378 

c 

379 

c 

BLALOCK: 9  DEC  77;CHITWOOD  6  APR  81 

380 

c 

CALCULATE  THE  NORMAL  SORTIES 

381 

c 

382 

ACS0RT-A1NT( BLF*  FLOAT ITAC ) *SRATE*S  FACT ) 

383 

RETURN 

384 

END 
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385 

SUBROUTINE  N2CH(  CHARA,  I  ) 

386 

cx*********** ****** **************** A******* 

387 

CX* 

* 

388 

cx* 

THE  PURPOSE  OF  THIS  SUBROUTINE  * 

389 

CX* 

IS  TO  CONVERT  AN  INTEGER  INTO  AN  * 

390 

cx* 

EQUIVALENT  CHARACTER  STRING.  IT  IS  * 

391 

cx* 

THE  FORTRAN  77  EQUIVALENT  OF  AN  * 

392 

cx* 

"ENCODE"  STATEMENT.  * 

393 

cx* 

* 

394 

CX********  CAUTION  *************** 

395 

CX* 

* 

396 

CX* 

THE  INTEGER  ARGUMENT  MUST  BE  INTEGER  * 

397 

cx* 

AND  LESS  THAN  10**15.  * 

398 

cx* 

* 

399 

Q  %  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  it  *  *  *  *  *  *  *  *  *  *  *  it  *  *  *  *  *  *  rt  * 

400 

cx 

401 

CHARACTER  *(*)  CHARA 

402 

CHARA  -  '  ' 

403 

INTGR  -  I 

404 

L  -  1 

405 

NP10  -  1 

406 

cx 

IF  I  IS  A  ONE  DIGIT  NUMBER,  SAVE  CALCULATION 

407 

CX  TIME  BY  SKIPPING. 

408 

IF(  INTGR  .LT.  10  )  GO  TO  10 

409 

cx 

PERHAPS  I  IS  A  TWO  DIGIT  NUMBER? 

410 

L  -  2 

411 

NP10  -  10 

412 

CX 

SKIP  IF  THE  NUMBER  HAS  ONLY  TWO  DIGITS. 

413 

IF(  INTGR  .LT.  100  )  GO  TO  10 

414 

CX 

CALCULATE  THE  NUMBER  OF  DIGITS  (L-l)  ONLY 

415 

CX  IF  THE  NUMBER  IS  GREATER  THAN  99. 

416 

L  -  IF IX(  AL0G10(  FLOAT(  INTGR  )  )  )  +  1 

417 

NP10  -  10  **  (L-l) 

418 

CX 

419 

CX 

NOW,  PACK  THE  DIGITS  INTO  CHARA  BEGINNING  WITH 

420 

CX  THE  LEFT -MOST. 

421 

CX 

422 

10 

DO  15  IPOS  -  1,  L 

423 

M  -  INTGR  /  NP10 

424 

CHARA( IPOS: IPOS)  -  CHAR(  M  +  16  ) 

425 

INTGR  -  INTGR  -  M  *  NP10 

426 

NP10  -  NP10  /  10 

427 

15 

CONTINUE 

428 

RETURN 

429 

END 
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430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 


SubROUT INE  RANSIZ(  IFILE,  IRECS1,  J  ) 

CX******** *********************** ********** 

cx*  * 

CX*  THIS  SUBROUTINE  IS  THE  EQUIVALENT  OF  * 
CX*  A  HONEYWELL  FORTRAN  ROUTINE  OF  THE  * 
CX*  SANE  NAME.  ITS  FUNCTION  IS  TO  OPEN  * 
CX*  A  DIRECT  ACCESS  FILE  (TAPE#  IFILE)  * 
CX*  WITH  THE  CORRECT  NUMBER  OF  RECORDS  * 
CX*  PER  RECORD  (IRECSI).  J  ■  0  IMPLIES  A  * 
CX*  FORMATTED  FORM  OF  FILE.  J  .NE.  0  IM-  * 
CX*  PLIES  AN  UNFORMATTED,  DIRECT  ACCESS  * 
CX*  FILE.  * 

CX*  * 

CX********  CAUTION  *************** 
CX*  YOU  HAD  BETTER  HAVE  A  LOCAL  FILE  BY  * 
CX*  THE  NAME  OF  "TAPE(IFILE)”.  * 

CX*  * 

cx******** ************************ ********* 

CX  INITIALIZE  ERROR  INDICATOR  ISTAT. 

ISTAT  -  0 

CX  BEFORE  OPENNING  A  FILE,  IT  MUST  BE  CLOSED 
CX  BUT  ONLY  CLOSE  THE  FILE  IF  RECL  >  1 


452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 


IF(  IRECSI  .GT.  1  )  THEN 
CX  FILE  HAS  BEEN  OPENNED  BEFORE  SO 

CLOSE(  UNIT-IFILE,  IOSTAT-ISTAT,  ERR-10,  STATUS- 'KEEP'  ) 

ENDIF 

CX  ERR  IS  SPECIFIED  TO  FORCE  THE  PRINTING  OF  THE  ERROR  STATEMENT. 

10  IF(  ISTAT  .EQ.  0  )  THEN 
IF(  J  .EQ.  0  )  THEN 

OPEN(  UNIT-IrILE,  IOSTAT-ISTAT,  ERR-20,  ACCESS-'SEQUENTIAL' , 

&  FORM-'FORMATTED'  ) 

ELSE 

OPEN(  UNIT-IFILE,  IOSTAT-ISTAT,  ERR-20,  ACCESS-'DIRECT' , 

&  FORM-' UNFORMATTED',  RECL-IRECSI  ) 

ENDIF 

20  IF(  ISTAT  .NE.  0  )  THEN 

PRINT  22,  ISTAT,  IFILE 
ENDIF 
ELSE 

PRINT  12,  ISTAT,  IFILE 
ENDIF 
RETURN 

12  FORMAT('  CLOSE  ERROR  #  ',13,'  WITH  TAPE  ',12) 

22  FORMAT('  OPENNING  ERROR  #  ',13,'  WITH  TAPE  ',12) 

END 
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475 

SUBROUTINE  READBU(  N,  CHAR  ) 

476 

CX 

477 

cx******* *********************** ***** 

478 

CX 

AUTHOR:  ANTHONY  WAISANEN 

479 

CX 

CAPT  USAF 

480 

CX 

481 

CX 

THE  PURPOSE  OF  THIS  SUBROUTINE 

482 

CX 

IS  TO  CHECK  IF  THE  FIRST  CHARACTER 

483 

CX 

CHAR  IS  A  'O'.  IF  IT  IS, 

484 

CX 

N  IS  SET  TO  ZERO.  IF  NOT,  N  IS 

485 

CX 

SET  TO  3. 

486 

£X**** ************ ********** ********* 

487 

CX 

488 

CHARACTER  *(*)  CHAR 

489 

N  ■  3 

490 

IF(  CHAR(1 : 1)  .£Q.  '0'  )  N  -  0 

491 

RETURN 

492 

END 
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493 

SUBROUTINE  SETBCISET.ISETD.MIN.IST.LST.ISTAT 

494 

C 

ROUTINE  TO  SET  BITS  IN  ISET  CORRESPONDING  TO 

495 

C 

YODIS . 13  JUL  78 

496 

c 

PIERCE  MODIFIED  5  DEC  79 

497 

cx 

WAISANEN  MODIFIED  MAR  L982 

498 

c 

499 

LOGICAL  ON 

500 

cx 

DIMENSION  ISET(ISETD) 

501 

CHARACTER*36  ISET(*) 

502 

cx 

503 

c 

504 

JNUM-0 

505 

IF(0N)JNUM-1 

506 

IF(.NOT.(IST.GT.LST))GO  TO  90 

507 

c 

THEN  FIX 

508 

M-IST 

509 

IST-LST 

510 

LST-M 

511 

90 

CONTINUE 

512 

c 

ENDIF 

513 

DO  no  num-ist,lst,inc 

514 

IBIT-NUM-MIN 

515 

JB IT»MOD( IBIT , 36 ) 

516 

JWRD-IBIT/36+1 

517 

IF( JWRD.GT . IS  ETD ) I STAT-5 

518 

1F(.N0T.(ISTAT.EQ.99))G0  TO  100 

519 

c 

THEN  SET  BITS. 

520 

cx 

FLD( JBIT, 1 , ISET(JWRD) )-JNUM 

521 

CALL  FLD2(JBIT,1,ISET(JWRD),JNUM) 

522 

100 

CONTINUE 

523 

c 

ENDIF 

524 

no 

CONTINUE 

525 

c 

ENDDO 

526 

INC-1 

527 

RETURN 

528 

END 

NUHBERIC  INPUT. 
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529 

SUBROUTINE  SETBIT(  IWORD,  1BIT,  ISW  ) 

530 

cx*** ****** ******************************** 

531 

CX* 

* 

532 

cx* 

THE  PURPOSE  OF  THIS  SUBROUTINE  * 

533 

CX* 

IS  TO  SET  BIT  If  IBIT  OF  IWORD  TO  1  * 

534 

cx* 

IF  ISW  -  1  AND  BIT  if  IBIT  OF  IWORD  TO* 

535 

cx* 

0  IF  ISW  -  0.  * 

536 

cx* 

1  .LE.  IBIT  .LE.  36.  * 

537 

cx* 

* 

538 

CX********  C  A  U  T  ION  *************** 

539 

cx* 

* 

540 

cx* 

IWO AD  MUST  BE  36  CHARACTERS  LONG.  * 

541 

cx* 

ISW  -  0  OR  1  AND  0  <  IBIT  <37  * 

542 

cx* 

★ 

543 

cx*** **************** ****** **************** 

544 

cx 

545 

CHARACTER*36  IWORD 

546 

cx 

CHECK  THE  VALIDITY  OF  ISW  AND  IBIT 

547 

IF (ISW  .EQ.  0  .OR.  ISW  .EQ.  1  .AND. 

548 

&  IBIT  .GE.  1  .AND.  IBIT  .LE.  36)  THEN 

549 

CX  ISW  AND  IB IT  IS  VALID 

550 

CX  SET  CORRECT  CHARACTER  ('BIT')  OF  IWORD 

551 

IF(  ISW  .EQ.  1  )  IWORD( IBIT: IBIT)  - 

552 

IF(  ISW  .EQ.  0  )  IWORD (IBIT: IBIT)  - 

553 

ELSE 

554 

CX 

ERROR  PROCESSING  SECTION 

555 

PRINT  *,'  ERROR  IN  SUBROUTINE  SETBIT 

556 

ENDIF 

557 

RETURN 

558 

END 
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559 

C  *0RUNH  *- ;  FKADY09/ 1)070/ FKADYLB/ OBJECT/  SEQIN(N0G0  ) 

560 

SUBROUTINE  S£QIN(BUF1,IP,ISET,IDIM,MAX,MIN,ISTAT) 

561 

C 

ROUTINE  TO  DECODE  A  NUMERIC  INPUT  STRING  OF  THE  FORM: 

562 

C 

'1,2,4-6,10,...'  AND  SET  CORRESPONDING  BITS  OF  ISET. 

563 

c 

YODIS . 14  JUL  78 

564 

c 

MODIFIED  14  DEC  78  BY:  LT  HARBICK 

565 

c 

BELLS  AND  WHISTLES  ADDED  4  DEC  79  BY  CAPT  ROGER  C  PIERCE 

566 

cx 

IMPROVED  TO  WORK  ON  A  CDC  MARCH  L982  CAPT  ANTHONY  WA1SANEN 

567 

c 

568 

CHARACTER  BUF1*80 

569 

c 

570 

CHARACTER  *15  CHARS 

571 

cx 

DIMENSION  ISET(IDIM) 

572 

CHARACTER*36  ISET(*) 

573 

cx 

574 

LOGICAL  DASH, ON, COMMA 

575 

c 

576 

c 

577 

cx 

578 

DATA  CHARS/ '01 2 34 56 789- ,  AB'/ 

579 

cx 

580 

ISETD-IDIM 

581 

DASH-. FALSE. 

582 

NUM-0 

583 

IBLANK-0 

584 

IOFFSE-IP-1 

585 

IP-IP-1 

586 

ISTAT-99 

587 

ON-. TRUE. 

588 

INC-1 

589 

COMMA-. TRUE. 

590 

c 

591 

c 

DOUNTIL  (IP.GE.80  .OR.  ISTAT.NE.99) 

592 

100 

CONTINUE 

593 

IP-IP+1 

594 

ICHAR-16 

595 

DO  110  ICH-1,15 

596 

JCH-ICH 

597 

IF(K0MPCH(BUF1, IP, CHARS, JCH,l).EQ.O)  ICHAR  -  JCH 

598 

no 

CONTINUE 

599 

c 

ENDDO 

600 

IF(ICHAR.GE.l  .AND.  ICHAR. LE. 10)ICTYPE-1 

601 

IF( ICHAR. GT. 10) ICTYPE-ICHAR-9 

602 

c 

CASE  ENTRY 

603 

GO  TO  (120,130, 150, 170, 190, 220, 320)ICTYPE 

604 

c 

CASE  1.  BUF1*IP  IS  A  DIGIT. 

605 

120 

CONTINUE 

606 

NUM-NUM* 1 O+ICHAR- 1 

607 

COMMA-. FALSE. 

608 

GO  TO  330 

61 


609 

C 

CASE  2.  BUF1*IP  IS  A  DASH. 

610 

130 

CONTINUE 

611 

IF(NUM.LT.MIN)ISTAT-4 

612 

IF ( NUM. GT . MAX ) I STAT-3 

613 

IF( COMMA) ISTAT-6 

614 

IF(K0MPCH(BUF1,IP+1,'  ' , 1 , 1 ) .EQ.0)ISTAT-6 

615 

IF( IP. EQ. 1) ISTAT-6 

616 

IF(DASH)ISTAT-o 

617 

IF(.N0T.(ISTAT.EQ.99))G0  TO  140 

618 

C 

THEN  SET  1ST  DO  PARAM  AND  DASH  FLAG. 

619 

DASH-. TRUE. 

620 

ISTNUM-NUM 

621 

NUM-0 

622 

140 

CONTINUE 

623 

C 

ENDIF 

624 

COMMA- . FALSE . 

625 

GO  TO  330 

626 

C 

CASE  3.  BUF1*IP  IS  A  COMMA. 

627 

150 

CONTINUE 

628 

IF(NUM.LT.MIN)ISTAT-4 

629 

IF ( N  UM . GT . MAX ) I S  TAT-3 

630 

IF ( .NOT. (NUM.EQ.O. AND. .NOT. DASH) )G0  TO  155 

631 

C 

THEN  ZERO  VALUE  TERMINATES  STRING 

632 

ISTAT-0 

633 

LENIN-IP-1 

634 

155 

CONTINUE 

635 

C 

ENDIF 

636 

IF ( KOMPCH( BUF 1 , IP+1 , '  ' ,  1 , 1 ) . EQ . 0 ) ISTAT-6 

637 

IF ( COMMA) ISTAT-6 

638 

IF( IP .EQ.l) ISTAT-6 

639 

IF( .NOT.(ISTAT.EQ.99))GO  TO  160 

640 

C 

THEN  SET  LAST  DO  PARAM  AND  SET  BITS. 

641 

LSTNUM-NUM 

642 

NUM-0 

643 

IF( .NOT. DASH) ISTNUM-LSTNUM 

644 

DASH-. FALSE. 

645 

CALL  SETB( ISET , ISETD ,MIN , ISTNUM , LSTNUM , 

646 

160 

CONTINUE 

647 

C 

ENDIF 

648 

COMMA-. TRUE. 

649 

GO  TO  330 

650 

C 

CASE  4.  BUF1*IP  IS  A  SPACE. 

651 

170 

CONTINUE 

652 

IBLANK-IBLANK+1 

653 

IF( .NOT.(IBLANK.EQ. (IP-IOFFSE) ) )G0  TO  175 

654 

C 

THEN  CHECK  TO  SEE  IF  LEADING  BUNK  LIMIT  1 

655 

IF  ( I  BUNK .  EQ .  4  )  I STAT-1 

656 

GO  TO  177 

657 

C 

ELSE  PROCESS  AS  END  OF  STRING 

658 

175 

CONTINUE 
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IF(NUM.LT.MIN)ISTAT«4 
IF(NUM.GT.MAX)ISTAT-3 
IF(NUM.EQ.O.AND. .NOT. DASH) ISTAT-0 
IF(.NOT.(ISTAT.EQ.99))GO  TO  180 

THEN  SET.  LAST  DO  PARAM  AND  SET  BITS. 

LSTNUM-NUM 

IF( .NOT. DASH)ISTNUM-LSTNUM 
DASH-. FALSE. 

CALL  SETB( I SET , ISETD , MIN , I STNUM , LSTNUM , IS  TAT , I NC , ON ) 

ISTAT-0 

180  CONTINUE 
ENDIF 

177  CONTINUE 
ENDIF 
GO  TO  330 

CASE  5.  BUF 1*IP  IS  AN  "A" 

190  CONTINUE 

IF ( .NOT. (K0MPCH(BUF1 , IP, 'ALL' ,1,3).EQ.0))G0  TO  200 
THEN  FILL  ARRAY 
ISTNUM-MIN 
LSTNUM-MAX 

CALL  SETB(ISET, ISETD, MIN, ISTNUM, LSTNUM, ISTAT, INC, ON) 

IP-IP+3 

IF(KOMPCH(BUFl,IP,',',l,l).NE.O)  ISTAT-6 
IF(KOMPCH( BUF 1 , IP , '  ',l,l).EQ.O)  ISTAT-0 
GO  TO  210 

ELSE  ILLEGAL  CHARACTER 
200  CONTINUE 

ISTAT-2 

210  ‘  CONTINUE 
ENDIF 

COMMA-. TRUE. 

GO  TO  330 

CASE  6.  BUF1MP  IS  A  'B' 

220  CONTINUE 

IF(  .NOT. (K0MPCH(BUF1 ,  IP ,'BUT,'  ,1,4)  .EQ.O. AND. COMMA)  )G0  TO  230 
THEN  TURN  OFF  ON 
IF(.NOT.ON)  ISTAT-8 
ON-. FALSE. 

IP-IP+3 
GO  TO  310 
ELSE  CHECK  FOR  BY 

230  IF( .NOT. (KOMPCH( BUF 1 , IP, 'BY' >1,2) .EQ.O. AND .COMMA) )G0  TO  290 

THEN  CHECK  FOR  INCREMENT 
INC-ll 

DO  240  ICH-1,10 
JCH-ICH 

IF(KOMPCH( BUF1 , IP+2 .CHARS, JCH, 1 ) .EQ. 0) INC-JCH-1 
240  CONTINUE 


IF(INC.EQ.O)  INC-10 
IF{ .NOT.(INC.EQ.ll ))GO  TO  250 
:  THEN  ERROR 

ISTAT-7 
IP-IP+2 
GO  TO  280 

:  ELSE  CHECK  FOR  COMMA 

250  CONTINUE 

IF(.N0T.(K0MPCH(RUF1,IP+3,',',1.1)*EQ*0))G0  TO  260 
I  THEN  OK 

IP-IP+3 
GO  TO  270 

ELSE  DELIMETER  ERROR 
260  CONTINUE 

ISTAT-6 

270  CONTINUE 

ENDIF 

:80  CONTINUE 

ENDIF 
GO  TO  300 

ELSE  ILLEGAL  CHARACTER 
290  CONTINUE 

ISTAT-2 

IF( .NOT. COMMA) ISTAT-6 
300  CONTINUE 

ENDIF 

310  CONTINUE 

ENDIF 

COMMA-. TRUE. 

GO  TO  330 

CASE  7.  BUFI*IP  IS  AN  ILLEGAL  CHAR. 

320  CONTINUE 

ISTAT-2 
330  CONTINUE 
ENDCASE. 

IF( .N0T.(IP.GE.8J  .OR.  ISTAT.NE.99))GO  TO  100 
ENDDO 

IF(ISTAT.EQ.A  .OR.  ISTAT.EQ.3)  IP-IP-1 
RETURN 


749 

SUBROUTINE  SLITE(  LITE  ) 

750 

£X************* ************************* A ** 

751 

cx* 

* 

752 

cx* 

THE  PURPOSE  OF  THIS  SUBROUTINE 

* 

753 

cx* 

IS  TO  TURN  ON  A  "SENSE  LIGHT"  WHICH  IS* 

754 

cx* 

USED  AS  A  FLAG  IN  THE  MISSION  INPUT 

* 

755 

cx* 

PROGRAMS  TO  INDICATE  THE  PRESENCE  OF 

* 

756 

cx* 

ERRORS. 

* 

757 

cx* 

IF  THE  VALUE  OF  LITE  IS  0,  THEN  ALL 

* 

758 

cx* 

SENSE  LIGHTS  ARE  TO  BE  TURNED  OFF. 

* 

759 

cx* 

IF  THE  VALUE  OF  LITE  IS  NOT  0,  THEN 

* 

760 

cx* 

SENSE  LIGHT  It  LITE  IS  TURNED  ON. 

* 

761 

cx* 

THIS  SUBROUTINE  IS  INTENDED  TO 

* 

762 

cx* 

REPLACE  SUBROUTINE  SLITE  AS  DESCRIBED 

* 

763 

cx* 

ON  PAGE  6-46  OF  THE  HONEYWELL  FORTRAN 

* 

764 

cx* 

MANUAL. 

* 

765 

cx* 

* 

766 

CX********  CAUTION  *************** 

767 

cx* 

* 

768 

cx* 

THE  VALUE  OF  LITE  MUST  LIE  BETWEEN 

* 

769 

cx* 

1  AND  36  (THE  NUMBER  OF  CHARACTERS  IN 

* 

770 

cx* 

THE  SENSE  LIGHT  WORD,  LIGHT). 

* 

771 

cx* 

* 

772 

cx* ************ *** ** **************** ******* 

773 

cx 

774 

CX  DEFINE  THE  SENSE  LIGHT  WORD,  LIGHT 

775 

COMMON  /SENSE/LIGHT 

776 

CHARACTER*36  LIGHT 

777 

CX  CHECK  THE  VALIDITY  OF  LITE 

778 

IF(  LITE.GE. 1  .AND.  LITE. LE. 35  )  THEN 

779 

CX  LITE  IS  VALID  SO  OPERATE  ACCORDINGLY 

780 

IF(  LITE  .LE.  0  )  THEN 

781 

CX 

TURN  OFF  ALL  SENSE  LIGHTS 

782 

LIGHT  -  '0' 

783 

ELSE 

784 

CX 

TURN  ON  LIGHT  It  LITE 

785 

LIGHT(LITE: LITE)  -  'l' 

786 

END  IF 

787 

ELSE 

788 

CX 

ERROR  HAS  OCCURRED 

789 

PRINT  12, LITE 

790 

ENDIF 

791 

RETURN 

792 

12 

F0RMAT(1X,'  ERROR  IN  SUBROUTINE  SLITE. 

793 

&'  WITH  LITE  -  ',13) 

794 

END 

CALLED' , 
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795 

SUBROUTINE  SLITET(  LITE,  K  ) 

796 

CX*** ******* ******************************* 

797 

CX* 

THE  PURPOSE  OF  THIS  SUBROUTINE 

* 

793 

cx* 

IS  TO  SENSE  IF  A  "SENSE  LIGHT"  IS  ON. 

* 

799 

CX* 

IF  THE  VALUE  OF  LITE  IS  0,  THEN  AN 

* 

800 

cx* 

ERROR  CONDITION  EXISTS.  K  IS  SET  TO  0* 

801 

cx* 

AND  AN  ERROR  MESSAGE  IS  PRINTED. 

* 

802 

cx* 

IF  THE  VALUE  OF  LITE  IS  NOT  0,  THEN 

* 

803 

cx* 

SENSE  LIGHT  it  LITE  IS  CHECKED.  IF  IT 

* 

804 

cx* 

WAS  ON  (-1),  K  -  1.  IF  IT  WAS  OFF 

* 

805 

cx* 

(-0),  K  -  2.  THE  LIGHT  IS  TURNED  OFF 

* 

806 

cx* 

AND  CONTROL  RETURNS  TO  THE  CALLING 

* 

807 

cx* 

ROUTINE. 

* 

803 

cx* 

THIS  SUBROUTINE  IS  INTENDED  TO 

* 

809 

cx* 

REPLACE  SUBROUTINE  SLITET  AS  DESCRIBED* 

810 

cx* 

ON  PAGE  6-46  OF  THE  HONEYWELL  FORTRAN 

* 

811 

cx* 

MANUAL. 

* 

812 

CX********  CAUTION  *************** 

813 

cx* 

THE  VALUE  OF  LITE  MUST  LIE  BETWEEN 

* 

814 

cx* 

1  AND  36  (THE  NUMBER  OF  CHARACTERS  IN 

* 

815 

cx* 

THE  SENSE  LIGHT  WORD,  LIGHT). 

* 

816 

cx******* ************************ ********** 

817 

cx 

818 

CX  DEFINE  THE  SENSE  LIGHT  WORD,  LIGHT 

819 

COMMON  /SENSE/LIGHT 

820 

CHARACTER*36  LIGHT 

821 

CX  CHECK  THE  VALIDITY  OF  LITE 

822 

IF(  LITE.GE. 1  .AND.  LITE. LE. 35  )  THEN 

823 

CX  LITE  IS  VALID  SO  OPERATE  ACCORDINGLY 

824 

CX 

DEFINE  A  DEFAULT  VALUE  FOR  K  ("OFF"  VALUE) 

825 

K  -  2 

826 

IF(  LIGHT (LITE: LITE)  .EQ.  '1'  ) 

THEN 

827 

CX 

LIGHT  WAS  ON 

828 

K  -  l 

829 

CX 

NOW  TURN  IT  OFF 

830 

LIGHT( LITE: LITE)  -  '0' 

831 

CX 

ELSE 

832 

CX 

LIGHT  WAS  OFF  SO  USE  DEFAULT 

VALUES. 

833 

ENDIF 

834 

ELSE 

835 

CX 

ERROR  HAS  OCCURRED 

836 

PRINT  12, LITE 

837 

K  -  0 

838 

ENDIF 

839 

RETURN 

840 

12 

F0RMAT(1X,'  ERROR  IN  SUBROUTINE  SLITET.  CALLED 

841 

&'  WITH  LITE  -  ',13) 

842 

END 
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C  *tfRUNH  *«;FKADY01/CSTR/TWXLIB/CLDBLUJ(N0G0) 

SUBROUTINE  TbLF(NAC, LOPT , BSTAT , TW XBLF ) 

C 

C  BLALOCK:  17  APRIL  79 

C  COMPUTE  SORTIE  SCALE  FACTOR  FROM  BASE  STAT  AND  LOAD  FACTOR 
C 

X*FLOAT( NAC ) / ( FLOAT ( LOPT >+l . OE -20 ) 
Xl-AMAXl(O.O.X-BSTAT) 

C1-0.5*XI 

C2-1.5*Xi 

TWXBLF-(AMIN1(X,BSTAT)+C1*EXP(-C2))/AMAXI(1.0E-20,X) 
RETURN 
CX  END 
CX 

CX  THE  FOLLOWING  SUBROUTINE  HAS  BEEN  DETERMINED 

CX  TO  BE  UNNECESSARY.  THEREFORE,  IT  HAS  BEEN  DELETED  AND 

CX  REFERENCES  TO  IT  HAVE  BEEN  MODIFIED  TO  'TBLF'. 

C  *#RUNH  *-;FKADY01/CSTR/TWXLIB/CLDBBUJ(N0G0,BCD) 

CX  SUBROUTINE  TBBLF(NAC, LOPT, BSTAT, TWXBLF) 

C 

C  BLALOCK:  17  APRIL  79 
C  COMPUTE  SORTIE  SCALE  FACTOR  FROM  BASE 
C  STAT  AND  LOAD  FACTOR 
C 

CX  X-FLOAT( NAC ) /( FLOAT (LOPT )+l . OE -20 ) 

CX  Xl-AMAXl(O.O.X-BSTAT) 

CX  CI»0.5*X1 
CX  C2«1.5*X1 

CX  TWXBLF»(AMIN1(X,BSTAT)+C1*EXP(-C2))/AMAX1(1.0-20,X) 

CX  RETURN 


874 

875 

876 

877 

878 

879 

880 
881 
882 

883 

884 

885 

886 
887 
838 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 


C 

C 

c 

c 

cx 

c 

cx 

cx 


*//RUNH  *- ;  FKADY01  /CSTR/ TWXLIB/ CLDDBUJ ( NOGO , BCD) 

SUBROUTINE  TDATIM(DATETl) 

**THIS  ROUTINE  RETURNS  A  16  CHARACTER  DATE  TIME  FIELD  FOR 
★★PRINTOUT  OF  THE  FORM  'YY  MMM  DD  HH:MM' 

★★AUTHOR:  ABBOTT  DATE:  12  DEC  77 

★★MODIFIER:  WAISANEN  2  DEC  81 


THIS  SUBROUTINE  HAS  BEEN  MODIFIED  FOR  THE 
CYBER/CDC  MAINFRAME 

CHARACTER  DATETI*16 ,DATE*8 ,MON( 12)*3 ,H0UR*2 ,MIN*2 

DATA  MON/'JAN','FEB','MAR','APR','MAY','JUN','JUL  ,  AUo 
4,  'OCT', 'NOV', 'DEC'/ 


,'SEP' 


C 

CALL  DATIM( DATE, TIME) 

CX 

CX  ORIGINAL  CODING 
CX  DECODE(DAT£,50O)MONTH 
CX  EQUIVALENT  FORTRAN  77  CODING 
READ ( DAT E , 500 )MONTH 
CX 

DATETI-' 

CALL  CONCAT ( DATET 1,1, DATE ,7,2) 

CALL  C0NCAT(DATETI,4,M0N(M0NTH) ,1,3) 

CALL  CONCAT ( DATETI , 8 , DATE ,4,2) 

CX 

IH-TIME 

IM-(TIME-FL0AT(IH))*60.0 

CX 

CX  ORIGINAL  CODING 
CX  ENCODE (HOUR, 500) I H 
CX  ENCODE(MIN, 502)IM/10 
CX  ENC0DE(MIN,501)IM-IM/10*10 
CX  EQUIVALENT  FORTRAN  77  CODING 
CX 

WRITE(HOUR,500)IH 
WRITE(MIN, 502 )IM/10 
WRITE(MIN,501)IM-IM/10*10 
CX 

CALL  CONCAT(DATETI,12,HOUR,l,2) 

CALL  CONCAT (DATETI ,14,':', 1,1) 

CALL  CONCAT ( DATETI ,15 ,MIN ,1,2) 

CX 

RETURN 

500  F0RMAT(I2) 

501  F0RMAT(T2,Il) 

502  FORMAT(Tl.Il) 

CX  END 

CX 

C  *#RUNH  ★«;FKADY01/ CSTR/ TWXLIB/ CLDDTUJ(NOGO) 
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924 

CX 

925 

cx 

THE  FOLLOWING  SUBROUTINE  HAS  BEEN  DETERMINED 

926 

CX 

TO  BE  UNNECESSARY.  THEREFORE,  IT  HAS  BEEN  DELETED  AND 

927 

cx 

REFERENCES  TO  IT  HAVE  BEEN  MODIFIED  TO  'TDATIM'. 

928 

cx 

SUBROUTINE  T B DAT IM ( DATET IM ) 

929 

c 

930 

c 

**THIS  ROUTINE  RETURNS  A  16  CHARACTER  DATE  TIME  FIELD  FOR 

931 

c 

**PRINT0UT  OF  THE  FORM  'YY  MMM  DD  Hri:MM' 

932 

c 

**AUTH0R:  ABBOTT  DATE:  12  DEC  77 

933 

c 

934 

cx 

CHARACTER  DATET IM* 1 6 , DATE *8 , M0N*3 ( 1 2 ) , H0UR*2 , M IN*2 

935 

cx 

DATA  MON/' JAN' , 'FEB' , 'MAR' , 'APR' , 'MAY' , ' JUN' , ' JUL' , 'AUG' 

936 

cx 

6  'OCT', 'NOV', 'DEC'/ 

937 

c 

938 

cx 

CALL  DATIM( DATE, TIME) 

939 

cx 

DECODE (DATE , 500 )MONTH 

940 

cx 

DATETIM-'  ' 

941 

cx 

CALL  CONCAT ( DATET IM , 1 , DATE ,7,2) 

942 

cx 

CALL  CONCAT ( DATETIM , 4 , MON (MONTH ) , 1 , 3 ) 

943 

cx 

CALL  CONCAT ( DATETIM , 8 , DATE ,4,2) 

944 

cx 

IH-TIME 

945 

cx 

IM-(TIME-FLOAT(IH))*60.0 

946 

cx 

ENCODE (HOUR, 500) IH 

947 

cx 

ENCODE (MIN, 502) IM/ 1 0 

948 

cx 

ENCODE (MIN , 501 )IM*IM/ 10*10 

949 

cx 

CALL  CONCAT (DATETIM, 12, HOUR, 1,2) 

950 

cx 

CALL  CONCAT(DATETIM, 14 , ' : ' , 1 , 1 ) 

951 

cx 

CALL  CONCAT (DATET IM, 15, MIN, 1,2) 

952 

cx 

RETURN 

953 

CX500  F0RMAT(12) 

954 

CX501  F0RMAT(T2, 11) 

955 

CX502  FORMAT (Tl, 11) 

956 

END 

'SEP' 
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957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 


SUBROUTINE  T£RMNO(  CHAR  ) 

cx***** ****************************** 

CX  AUTHOR:  ANTHONY  WAISANEN  C 

CX  CAPT  USAF  C 

CX 

CX  THE  PURPOSE  OF  THIS  SUBROUTINE 
CX  ORIGINALLY  WAS  TO  RETURN  THE  2  CHARACTER 
CX  “NAME"  OF  THE  TERMINAL  BEING  USED. 

CX  THE  ORIGINAL  SUBROUTINE  WAS  A 
CX  HONEYWELL  SYSTEM  ROUTINE.  THERE  IS 
CX  NO  ANSII  STANDARD  ROUTINE. 

CX  THIS,  THEN,  IS  A  DUMMY. 

CX***** ********************* ********* 

CX 

CHARACTER*2  CHAR 
CHAR  -  '77' 

RETURN 

END 
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975 

976 

977 

978 

979 

980 

981 

982 

983 

984 
935 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1000 
1001 
1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 


cx 


cx 

c 

c 

c 

c 

c 


c 


*//RUNH  *■; FKADY01/CSTR/TWXLIB/CLDLTUJ(NOG0, BCD) 
SUBROUTINE  TLETTER(LINES, LETTERS, STRING, IFC) 
SUBROUTINE  TLETTE(LIN£S, LETTER, STRING, IFC) 

BLALOCK:  MODIFIED  10  DEC  77 
NUMERIC  -  CHARACTER  CONVERSION  6  PRINT 


/ 

IMPLICIT  INTEGER(A-Z) 

DIMENSION  MAP(IOO) ,STRING(18, LINES) 
CHARACTER* 1  X,INDX(32) 

CHARACTER* 7  SYMB(IOO) 

CHARACTER*5  BINY(32) ,PRNT(7 , 18) 


&  'Q','R','S','T','U ','V'/ 

DATA  BINY/'  ' ,'*  ','  *  ' ,'**  ','  *  ' ,'*  *  ','  **  ' 

(.  '***  '  '  *  '  '*  *''**'  '  **-'***' 

°  >>»>>>> 

&  '  ***  '  ' ****  *  '  *'  '*  *-'**'  ' **  *'  '  *  *' . 

&  '*  *  *','  **  *','***  *'  '  **'  f '  *  **'  ( '  *  **'>'**  **' t 

DATA  SYMB/'EHPUHE'  .'464444E'  ,'EHGEllV' ,'EHGCGHE' .'8CA9V88'  , 
4'VIFGGHE' , 'C21FHHE' , ' VG84222 ' ,  'EHHEHHE' , 'EHHUG86' , 'EHHVUHH' , 
6'FIIEIIF','EH111HE','FIIIIIF','V11F11V','V11F111','U11THHE', 
4'HHHVHHH' , 'E44444E' ,'GGGGGHE' , 'H95359H' ,' 1 1 1 1 1 IV' , 'HRLLHHH' , 
4'HJLPHHH' , ' VHHHHHV' , 'FHHF 11 1 ' , 'EHHHL9M' , 'FHHF59H' , 'EH248HE' , 
4'V444444' , 'HHHHHHE' .'HHHAA44' ,'HHHLLLA' .'HHA4AHH' .'HHA4444' , 
4'VG8421V' ,'OARORAO' ,'EHGMLD3' ,'2552L9M' ,'QOVOVOO' ,'04EVE40' , 
4'3J842P0' , '4AH0000' , 'EH84404' , '044V440' , '0 1248G0' .'0G84210' , 
4'OOOVOOO', '0000066', '0006642', '6606642', '0660660', '7444447', 
&'S44444S','G84248G', '1248421', '1244421', 'G84448G', '8420000', 
*'6666066' ,'4444444' ,'VVVVVVV' ,'0000000' ,'AAOOOOO' .'EL5EKLE' , 
4'S0M9996' .'EHHE4E4' ,'8088896' ,'l 195359' ,'4444444' ,'OOALLLL' , 
4'OODJHHH" 4 ’OOEHHHE' , '00FHF1 1 ' , '00E9E8O' , 'OODJ 111', '00E1687 ' , 
4'22F22IC' , '009999M' , 'OOHHLLA' , '00HA4AH' , 'OOHHUGE' , '00HHHA4' , 
4'00V842V' , '006999M' , ' 1 ID JHJD' , '00EH1HE' , 'GGMPHPM' , '00EHV1E' , 
4'04U4444' ,'00E9E86' ,'11DJHHH' ,'4044444' ,'QOOOOOV' ,'0Q2V20Q' , 
*'8442448', '2448442', 'OOQDOOO', 2*'  '/ 

DATA  MAP/  60,  61,  62,  63,  64,  65,  66,  67,  70,  71,101,102,103,104, 
4105,  106,107,110,111,112,113,114,115,116,117,120,121,122,123,124, 
4  125,126,127,130,131,132,  43,100,  46,  75,  52,  45,136,  77,  53, 

4  134,  57,  55,  56,  54,  73,  72,135,133,  74,  76,  51,  50,  47,  41, 

4  174,200,  40,  42,  44,201,202,152,153,154,155,156,157,160,161, 

4  162,163,164,165,167,170,171,166,172,141,142,143,144,145,146, 

4  147,150,151,137,140,173,175,176,  2*0/ 

DATA  X/'  '/ .D1FAUL/63/ .D2FAUL/1/ 


DO  400  L-l, LINES 
DO  300  N-l, LETTER 
SEED-D1FAUL 


71 


1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 


DO  100  K-1,100 

IF(STitING(N,L).EQ.MAP(K))  SEE D-K 
100  CONTINUE 

DO  200  H-1,7 
HX*H 

CALL  CONCAT(X,l,SYhB(SEED) ,HX,1) 

HX-D2FAUL 

DO  150  M*1 ,32 

IF(X.£Q.INDX(M))  HX-M 
150  CONTINUE 

PRNT(H,N)-BINY(MX) 

200  CONTINUE 

300  CONTINUE 

D°W RITE ( IFC , 600 )  ( PRNT(H , N) , N-l , LETTER) 

350  CONTINUE 

WRITE(IFC,601) 

400  CONTINUE 
RETURN 

600  F0KHAT(1X,18(A5,2X)) 

601  F0RMAT(//) 

END 


SUBROUTINE  UPRCAS(  N,  M  ) 

cx*** ********************************** **** 

cx*  * 

CX*  THIS  IS  A  DUMMY  SUBROUTINE.  IN  THE  * 
CX*  HONEYWELL  SYSTEM,  IT  CONVERTS  A  LOWER  * 
CX*  CASE  STRING  OF  M  CHARACTERS,  N,  INTO  * 
CX*  AN  EQUIVALENT  UPPERCASE  STRING,  ALSO  * 
CX*  N.  SINCE  ASCII  ONLY  USES  UPPERCASE,  * 
CX*  THIS  SUBROUTINE  HAS  NO  FUNCTION  OTHER  * 
CX*  THAN  TO  INDICATE  WHERE  THE  ORIGINAL  * 
CX*  TWX  DATA  HAD  TO  BE  CONVERTED.  * 

CX*  * 

CX********  CAUTION  *************** 
CX*  * 

CX*  THERE  ARE  NO  CAUTIONS  ASSOCIATED  WITH* 
CX*  THIS  SUBROUTINE.  * 

CX*  * 

cx******* ******************* *************** 
CHARACTER  *(*)  N 
RETURN 
END 


Appendix  C 
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18 
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.  PROC , APESEG ,  FYLE-APE . 

.*  THIS  PROCEDURE  FILE  CREATES  A  SEGMENTED  OBJECT 
.*  DECK  AND  CATALOGS  IT  AS  "APELGO." 

.*  THE  SOURCE  DECK  "FYLE"  MUST  BE  THE  SOURCE  DECK 
.*  FOR  THE  AAFCE  PLANNING  PROGRAM. 

MAP, OFF. 

RETURN, KNUJ. 

ATTACH, KNUJ, APE LGO, ID-T800855.PW-FOX. 

.*  SKIP  IF  NOT  CATALOGED 
SKIP, NONE. 

EXIT.S. 

ENDIF.NONE. 

.*  CONTINUE  FROM  HERE 
REWIND, FYLE. 

FTN5 , I “FYLE , L0“0 , B-APEB . 

.*  CHECK  FOR  TUXLIB  PRESENCE 

IF £, FILE (ZZZZZLW , LO.OR.PF) .NE. 1,GET1. 

.*  NOT  HERE,  SO  MUST  GET  IT 

ATTACH, ZZZZZLW, TUXLIB , ID-T800855.CY-1 . 

ENDIF ,GET1. 

.*  DECLARE  IT  AND  THE  UEDIT  LIBRARY 
LIBRARY( ZZZZZLW , ZZZZZLA ) 

RETURN, SEGLGO. 

REQUEST, SEGLCO,*PF. 

SEGLOAD(I“DIRS,B“SEGLGO) 

LOAD ( APE B) 

NOGO. 

.*  RECALL  THE  LIBRARIES 
LIBRARY ( ZZZZZLA , ZZZZ  ZLB ) 

CATALOG .SEGLGO , APELGO , ID-T800855 , XR-FOX , PW-FOX . 
PURGE, KNUJ. 

RENAME , SEGLGO , CY“1 . 

RETURN , KNU J , SEGLGO . 

RETURN, DIRS, APEB. 

.*  NO  MATTER  WHAT 
EXIT.S. 

LIBRARY ( ZZZZZLA, ZZZZZLB) 

RETURN, DIRS, APEB. 

REVERT. 
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40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 
5b 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 
89 


•DATA, DIRS. 

* 

*  MAJOR  TREE  APE 

TREE  APE - ( I PT , OPTT , RAPU  P ) 

INCLUDE  UTLL1N , 3LKDAT 

* 

*  SUBTREE  IPT  (FILE  INITIALIZATION) 

IPT  TREE  PI-(PIRANS,PIDS-PIDAYS , PIAC, PIAB.PIMU , PILREC) 
PI  INCLUDE  UTBLF 

* 

*  SUBTREE  OPTT  (  OPTION  HANDLING  ROUTINES  ) 

OPTT  TREE  OPTN-(DPT, IPRC1 , IPAG1 , IPRS1 , IPIV1 ,LAT) 

OPTN  INCLUDE  UTIMEO ,  L'TLLIN ,  UTMLEF 

* 

*  SUB-SUBTREE  DPT  (  DISPLAY  ROUTINES  ) 

DPT  TREE  DP-(DP12,DPAG,DPTS-DPTSOT,DP13,DPDR) 

DP  INCLUDE  DPACIN .DPSETB ,DPABNO 

* 

*  SUBTREE  OF  DPT 

DP12  TREE  DPBD-(DP2,DPBD0T) 

DP2  TREE  DPACIN-DPACNA 

DPACIN  INCLUDE  DPSETB 

it 

*  ANOTHER  SUBTREE  OF  DPT 

DP13  TREE  DPBL-(DP3 ,DPBLOT) 

DP3  TREE  DPLGIN-DPLCNA 

DPLGIN  INCLUDE  DPSETB 

* 

*  SUB-SUBTREE  IPRC1 

IPRC1  TREE  IPRC-(IPRCED-IPRCHC.IPRCUP) 

I PRC  INCLUDE  IPCHEC , UTNUM , UT IHEO , UTLLIN , UTMLEF 

* 

*  SUB-SUBTREE  IPAG1 

IPAG1  TREE  IPAG-(IPAGED, IPAGUP) 

I PAG  INCLUDE  UTBLF, UTNUM, UTIMEO, UTLLIN, UTMLEF , IPCHEC 

* 

*  SUB-SUBTREE  IPRS1 

IPRS1  TREE  IPRS-(IPRSED, IPRSUP) 

IPRS  INCLUDE  IPCHEC, UTNUM, UTIMEO, UTLLIN, UTMLEF 

* 

*  SUB-SUBTREE  IPIV1 

IPIV1  TREE  IPIV-(IPIVED, IPIVCR, IPIVUP) 

IPIV  INCLUDE  IPCHEC, UTNUM, UTIMEO, UTLLIN, UTMLEF 

* 

*  SUB-SUBTREE  LAT 

LAT  TREE  LA-(LAATAF,LA12,LA22) 

LA  INCLUDE  LAINMS,LAWXSC,LAOTCA 

* 

*  SUBTREE  OF  LAT 

LA12  TREE  LAIN-(LANXQM,LA1) 
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91 

92 

93 

94 

95 

96 

97 
93 
99 

100 

101 

102 

103 

104 

105 
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*  SUBTREE  OF  LA 12 

LAI  TREE  LAINED“(LAINAC, LAINSR) 

* 

*  SUBTREE  OF  LAT 

LA22  TREE  LAOT  * ( LAOTGR , LA2 , LAOTPR ) 

* 

*  SUBTREE  OF  LA22 

LA2  TREE  LAOTAB-LAOTNO 

LAOTAB  INCLUDE  LAOTSE 

* 

*  COMMON  BLOCK  DECLARATION 

COMMON  ABDATA , ABLF .ACDATA, CTRL , 10 , IOCH , 

,  LAIN’B  ,  LAINBC ,  LAIOBU ,  LAOTG ,  LAOTMU ,  LGDATA ,  LSTGD ,  MS  NS , 

, NAMES, POLSPR 

* 

*  APE  DECLARED  TO  BE  ENTRY  POINT 
END  APE 
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109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
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129 
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133 

134 
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139 

140 

141 


• PROC , LIS  EG , FYLE*LI • 

RETURN, KNUJ. 

ATTACH, KNUJ ,LILGO , ID-T800855 ,PW-FOX. 

SKIP, WHERE. 

EXIT, S • 

ENDIF, WHERE. 

REWIND.FYLE. 

FTN5 , 1-FYLE ,  B-LIB ,  LO-O  ,  Dli-0 . 

.*  CHECK  FOR  TWXLIB  PRESENCE 
IFE,FILE(ZZZZZLW ,LO.OR.PF) .NE. 1 ,GET1 • 

.*  NOT  HERE,  SO  MUST  GET  IT 

ATTACH , ZZZZZLW , TWXLIB , ID-T800855 , CY-1 . 

ENDIF, GET1. 

.*  DECLARE  IT  AND  THE  UEDIT  LIBRARY 
LIBRARY( ZZZZZLW , ZZZZZLA ) 

RETURN, SEGLGO. 

REQUEST, SEGLGO, *PF. 

SEGLOAD ( I-D IRS , B-S  EGLGO ) 

LOAD(LIB) 

NOGO. 

CATALOG , SEGLGO , LILGO , ID-T800855 , PW-FOX.XR-FOX. 
PURGE, KNUJ. 

SKIP, NO. 

EXIT.S. 

ENDIF, NO. 

RENAME, SEGLGO, CY-1. 

RETURN , DIRS , XE CUTE , KNUJ , SEGLGO . 

.*  RECALL  THE  LIBRARIES 
LIBRARY ( ZZZZZLA , ZZZZZLB ) 

.*  NO  MATTER  WHAT 
EXIT, S. 

RETURN .DIRS , XECUTE. 

LIBRARY( ZZZZZLA , ZZZZZLB ) 

REVERT. 
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142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 


.DATA, DIAS. 

TREE 


LI 


LI-(LIt:KA,OPTREE,NURAP) 
INCLUDE  HLKDAT 


LINKA  TREE  PI-(PIAC,PIATCH,PIL1, 

.PILO-(PILOPS-PILOCO), 

.PILOSE , PILOSI , PINIT , PIARST) 

* 

PINIT  INCLUDE  DATIM.FLD2 .FP.RANSIZ .UTINAC.UTINCH, 

, UTINDA, UTINOR, UTINTG , UTINUT 


OPTREE  TREE 


OPTN- ( LINKS , LINKC , LINKD , LINKE ) 


OPTN  INCLUDE  UTHELP 


LINKS  TREE  DISPLA-(DISPDA,DISPPR,DISPUN'(D1SPWX-DISPSV) , 

, DISPMI.DISPAC, 

,DISPTG-(DISPTU,DISPTC,DISPTQ) , 

, DISPAM, DISPAD.DISPRE) 

* 

DISPLA  INCLUDE  UTHELP 

* 

DISPAC  INCLUDE  CONCAT, DATIM,DISPWA,UTACVD,UTTOKE 

* 

DISPAD  INCLUDE  DATIM.DISPWA 

* 

DISPAM  INCLUDE  DATIM.DISPWA,  UTtlELP 

* 

DISPDA  INCLUDE  DATIM.DISPWL, UTHELP 

* 

DISPMI  INCLUDE  DATIM.DISPWL, UTHELP 

* 

DISPRE  INCLUDE  CONCAT,DATIM,DISPWA,DISPWL,FLD, 

, FLD2 , ILLEGA , SEQIN , UTHASH, UTHELP 

* 

LiISPTG  INCLUDE  CHKB  IT,  CONCAT,  DATIM.DISPWA 

* 

DISPTC  INCLUDE  CONCAT, ILLEGA, SEQIN 

* 

DISPTQ  INCLUDE  CONCAT, ILLEGA, UTCOIN.UTTOKE 

* 

DISPTU  INCLUDE  CONCAT, ILLEGA, SEQIN 

* 

DISPWX  INCLUDE  DISPWL 


LINKC  TREE 


MODIFY-(MODDEL-MODDCH.CHGTREE) 


MODIFY  INCLUDE  ILLEGA 

MODDEL  INCLUDE  FLD2 
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192 

* 

193 

* 

194 

CHGTREE 

TREE 

MODC HG •  ( MODW T 1  .M0DWT2  ,M0DWT3, 

195 

, MODACF , 

MODCOR , MODCYC , MODDAY , MODPR I , MODQNT , 

196 

, MODTGT , 

MODTUT , MODFUT , MODURQ , MODLLQ ) 

197 

* 

198 

MODACF 

INCLUDE 

CONC AT , UTACVD , UTTOKE 

199 

* 

200 

MODCOR 

INCLUDE 

CONCAT , UTCOIN , UTTOKE 

201 

* 

202 

MODCYC 

INCLUDE 

UTDAVD 

203 

* 

204 

MODDAY 

INCLUDE 

CONCAT , UTCOIN , UTDAVD , UTTOKE 

205 

* 

206 

MODPRI 

INCLUDE 

CONCAT , UTCOIN , UTTOKE 

207 

* 

208 

MODQNT 

INCLUDE 

UTQUAN 

209 

* 

210 

MODTGT 

INCLUDE 

CONC AT , FLD , UTCO IN , UTTOKE 

211 

* 

212 

MODTUT 

INCLUDE 

CONCAT, UTCOIN, UTERR, UTTOKE 

213 

* 

214 

MODFUT 

INCLUDE 

CONCAT , UTCOI N , UTDAVD .UTERR , UTTGVD , UTTOKE 

215 

* 

216 

MODURQ 

INCLUDE 

CONCAT , UTCOIN , UTTOKE 

217 

* 

218 

MODLLQ 

INCLUDE 

CONCAT .UTCOIN , UTTOKE 

219 

* 

220 

LINKD 

TREE 

LANDIN- (LAATK , LADEF , LALAY , LAMOV , LAREI , LAW IT ) 

221 

* 

222 

LAATK 

INCLUDE 

CONCAT , FLD , KOMPC  H , LATGVD , LAUTCD , 

223 

.UTABRT, 

UTCHK , UTCOIN , UTDAVD , UTDEC , UTERR , UTHASH, UTHELP , 

224 

.UTINCH, 

UTTGVD, UTTOKE 

225 

* 

226 

LADEF 

INCLUDE 

CONCAT , FLD , KOMPCH , LATGVD , LAUTCD , 

227 

, UTABRT, 

UTCHK , UTCOIN , UTDAVD , UTDEC , UTERR, UTHASH, UTHELP , 

228 

.UTINCH, 

UTTGVD, UTTOKE 

229 

* 

230 

LALAY 

INCLUDE 

CONC AT, FLD , KOMPCH, LATGVD , LAUTCD , 

231 

.UTABRT, 

UTCHK , UTCOIN , UTDAVD , UTDEC , UTERR, UTHASH, UTHELP , 

232 

.UTINCH, 

UTQUAN , UTTGVD , UTTOKE 

233 

* 

234 

LAMOV 

INCLUDE 

CONCAT , FLD , KOMPCH , LATGVD , LAUTCD , 

235 

.UTABRT, 

UTCHK , UTCO IN , UTDAVD , UTDEC .UTERR , UTHASH, UTHELP , 

236 

.UTINCH, 

UTTGVD, UTTOKE 

237 

* 

238 

LAREI 

INCLUDE 

CONCAT , FLD , KOMPCH , LATGVD , LAUTCD , 

239 

.UTABRT, 

UTCHK , UTCOIN , UTDAVD , UTDEC , UTERR , UTHASH , UTHELP , 

240 

, UTINCH, UTQUAN , UTTGVD , UTTOKE 

241 

* 
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242  LAW  IT  INCLUDE  CONC AT , FLO , KOMPCH , LATG VD , LAUTCD , 

243  , UTaBRT , UTCHK , UTCOIN , UTDAVD , UTDEC, UTERR , UTHASH , UTHELP , 

244  , UT INC  H , UTQUAN , UTTGVD , UTTOKE 

245  * 

246  LINKE  TREE  AIRIN'  (AIRPRI  .AIRRES  ,AIRREC  .AIR.BAI , AIRCAS , AICYVD ) 

247  AIRIN  INCLUDE  UTHELP 

248  * 


249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 


AIRPRI  INCLUDE  CHKBIT, CONCAT, ILLECA.SEQIN, UTHELP 

* 

AIRRES  INCLUDE  AICOVD.AIPIVD, CONCAT, UTABRT, UTACVD, UTCOIN, 

, UTHASH, UTINCH, UTQUAN, UTTOKE 
* 

AI.RREC  INCLUDE  AIQDVD,  AlPIVD,AITGVD  .CONCAT,  FLD,  UTABRT, 

, UTACVD , UTCOIN , UTHASH, UTINCH , UTTOKE 

* 

AIRBAI  INCLUDE  AIPIVD.AITGVD, CONCAT, FLD, UTABRT, 

, UTACVD , UTCOIN , UTHASH .UTINCH, UTQUAN , UTTOKE 

* 

AIRCAS  INCLUDE  AICOVD.AIPIVD, CONCAT, UTABRT, UTACVD, UTCOIN, 

, UTHASH , UTINCH, UTQUAN , UTTOKE 

* 

AICYVD  INCLUDE  CONCAT 

* 

COMMON 
END  LI 


2b7  . PROC , HIS EG , FYLE-MI , MAP-OFF. 
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270 
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272 

273 

274 

275 

276 

277 

278 

279 

280 
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284 

285 

286 

287 
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289 

290 

291 

292 

293 
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298 

299 

300 

301 

302 

303 
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305 


RETURN, KNUJ.LGO. 

ATTACH , KWUJ .HILGO , ID-T800855 , PW-FOX . 

.*  SKIP  IF  NOT  CATALOGED 
SKIP .NONE. 

EXIT.S. 

ENDIF .NONE. 

.*  CONTINUE  FROM  HERE 
REWIND, FYLE. 

# MAP-MAP. 

FTN5 , I-FYLE , B-MIB , LO-O , DB-0 . 

.*  CHECK  FOR  TWXLIB  PRESENCE 
IFE,FILE(ZZZZZLW,L0.0R.PF).NE.1,GET1. 

.*  NOT  HERE,  SO  MUST  GET  IT 

ATTACH, ZZZZZLW , TWXLIB , ID-T800855 , CY-1 . 

ENDIF, GET1. 

.*  DECLARE  IT  AND  THE  UEDIT  LIBRARY 
LIBRARY( ZZZZZLW .ZZZZZLA) 

RETURN, SEGLGO. 

REQUEST, SEGLGO , *PF . 

SEGLOAD( I -DIRS , B-SEGLGO ) 

LOAD(MIB) 

NOGO. 

CATALOG, SEGLGO .MILGO , ID-T800855 , PW-FOX, XR-FOX. 

PURGE, KNUJ. 

.*  SKIP  TO  "EXIT.S."  STATEMENT  IF  FILE  WAS  NOT  ATTACHED. 
RENAME , SEGLGO , C Y-l . 

.*  ALWAYS  GO  THROUGH  THESE  STATEMENTS 
SKIP.N0NE2. 

EXIT.S. 

ENDIF, N0NE2. 

RETURN , MIB , DIRS , XECUTE , KNU J , SEGLGO . 

.*  RECALL  THE  LIBRARIES 
LIBRARY( ZZZZZLA, ZZZZZLB) 

.*  NO  MATTER  WHAT 
EXIT.S. 

RETURN, MIB, DIRS, XECUTE. 

LIBRARY( ZZZZZLA, ZZZZZLB) 

REVERT. 
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.DATA, DIRS. 

307 

* 

308 

*  MAIN 

TREE 

309 

TREE 

MI - ( ASKIT , CHANGE , CYCINPT , CYFMT1T , 

310 

,  CYFMT2T ,  CYFMT3T ,  CYFMT4T ,  CYPRP 1 ,  DAY  INP , 

311 

, DAY RAP 

.DELETE , ENTERT , INIT , INTERMT , 

312 

.MOD IFYT , PRINT I , RESEQ , RESTAR) 

313 

* 

314 

MI 

INCLUDE 

C YOUT , CYPRP3 , DAYOUT , ENC0D1 , ENC0D2 , ENC0D3 

315 

, ENC0D4 

.PRNT1, SLITE 

.SLITET 

316 

* 

317 

*  TREE 

FOR  LINK  A 

( 

AKA  “PI”  ) 

318 

ENTERT 

TREE 

ENTER- ( INTWX , SETREC ) 

319 

* 

320 

ENTER 

INCLUDE 

DETACH, PRNT1 

321 

INTWX 

INCLUDE 

CHKSYS , RANSIZ 

322 

SETREC 

INCLUDE 

RANSIZ 

323 

* 

324 

*  TREE 

FOR  LINK  B 

( 

AKA  "RT"  ) 

325 

INTERMT 

TREE 

INTERM-YNC 

326 

* 

327 

INTERM 

INCLUDE 

FLD2 , PRNT1 

328 

RESTAR 

INCLUDE 

ARRAYS , BCDASC , CALC  SO , CY PRP 3 , SLITE 

329 

* 

330 

*  TREE 

FOR  LINK  C 

( 

AKA  “DI”  ) 

331 

CYCINPT 

TREE 

CYC INP - ( CYC  PRE - ( I NACMA , INTGTT ) ) 

332 

* 

333 

CYCINP 

INCLUDE 

CONCAT , ENC0D1 , ENC0D2 , ENC0D3 , ENC0D4 , 

334 

, PRNT1 , 

RPRNT 

335 

INACMA 

INCLUDE 

FLD2.SETBIT 

336 

INTGTT 

INCLUDE 

FLD2 

337 

CYCPRE 

INCLUDE 

FLD, SLITE, SLITET 

338 

CYPRP1 

INCLUDE 

SLITE, SLITET 

339 

PRINTI 

INCLUDE 

PRNT1 

340 

* 

341 

*  TREE 

FOR  LINK  D 

( 

AKA  ” F 1 ”  ) 

342 

CYFMT1T 

TREE 

CYFMT1-(FMT1A-(CKNUM1 ,EDIT1T) ) 

343 

* 

344 

CYFMT1 

INCLUDE 

FLD, PRNT1, RPRNT 

345 

FMT1A 

INCLUDE 

BLNKOU , CKCMA1 , CONCAT , DETACH , 

346 

,ERR1, GREASE, SLITE, 

SLITET, UPDATE, UPRCAS 

347 

* 

348 

EDIT IT 

TREE 

E  DIT 1 - ( EDITA1 , DEC0D1 , EDITB 1 , 

349 

,EDITC1 

.EDITDl) 

350 

EDIT1 

INCLUDE 

CONCAT, ERRl.PRNTl, SLITE, 

351 

.SLITET 

.UPRCAS 

352 

DEC0D1 

INCLUDE 

SLITE 

353 

EDITA1 

INCLUDE 

ICHKAC, SLITE, SLITET 

354 

EDITB1 

INCLUDE 

CHKACM , FLD2 , SLITE , SLITET , SETBIT 

355 

EDITC1 

INCLUDE 

SLITE, UPRCAS 
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356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 


ED1TD1  INCLUDE  CHKTGli 

* 

*  TREE  FOR  LINK  E  (  AKA  "F2“  ) 

CYFMT2T  TREE  CYFMT2-(FMT2A-(CKNUM2,EDIT4T)) 

* 

CYFMT2  INCLUDE  FLD , PRNT1 , RPRNT 

FMT2A  INCLUDE  BLNKOU.CKCMAl .CONCAT, DETACH, ERR1 .GREASE, 

, S  L I TE , S  L ITET , UPDATE , UPRC AS 

* 

EDIT4T  TREE  ED1T4-(DEC0D2,EDITC2) 

EDIT4  INCLUDE  EDITA2 , EDITH 2 , FLD2 , ICHKAC , SLITE , 

.SLITET, CHKACM.SETBIT 

EDITC2  INCLUDE  CilKTGH,  UPRCAS 

* 

*  TREE  FOR  LINK  F  (  AKA  ”F3"  ) 

CYFMT3T  TREE  CYFMT3-(FMT3A-(CKNUM3,DECOD3,EDITC3)) 

* 

CYFMT3  INCLUDE  FLD, PRNT1, RPRNT 

FMT3A  INCLUDE  BLNKOU ,CHKACM,CKCMAl , CONCAT, EDITA2.EDIT62, 

, ERR1 , FLD2 , GREASE , ICHKAC , RPRNT , PRNT1 , SETBIT , SLITE , 

, SLITET , UPDATE , UPRCAS 
* 

*  TREE  FOR  LINK  G  (  AKA  "F4“  ) 

CYFMT4T  TREE  CYFMT4-(FMT4A-(CKNUM4,DEC0D4,EDITC4T) ) 

* 

CYFMT4  INCLUDE  FLD, PRNT1, RPRNT 

FMT4A  INCLUDE  BLNKOU, CHKACM.CKCMAl, CONCAT, EDITA2.EDITB2, 

, ERR1 , FLD2 , ICHKAC , GREASE , PRNT 1 , RPRNT , SETB IT , S  LITE , SL ITET , 
.UPDATE, UPRCAS 

EDITC4T  TREE  EDITC4-(EDITD4 .EDITF4) 

EDITC4  INCLUDE  CHKTGH.ERR1, FLD, PRNT 1, SLITE, SLITET 

* 

*  TREE  FOR  LINK  H  (  AKA  ”CH"  ) 

CHANGE  INCLUDE  FILESC.PRNT1, SLITE, UPRCAS 

RESEQ  INCLUDE  SHUFFL 

DELETE  INCLUDE  ARRAYS, CONCAT, EDIT1C,FILESC,PRNT1 , SLITE 

* 

*  TREE  FOR  LINK  I  (  AKA  "PR"  ) 

ASKIT  INCLUDE  PRNT1 

* 

*  TREE  FOR  LINK  K  (  AKA  "HO"  ) 

MODIFYT  TREE  M0DIFY-(FMAT1R,FMAT2R,FMAT3R,FMAT4R,FMAT1W, 

, FMAT2W , FMAT3W , FMAT4W ) 

* 

MODIFY  INCLUDE  ARRAYS, CONCAT, EDIT1C.PRNT1, SLITE, UPRCAS 

* 

*  TREE  FOR  LINK  L  (  AKA  "WU"  ) 

INIT  INCLUDE  BCDASC.CALCSO, CALLS S.TERMNO 

DAYRAP  INCLUDE  DETACH, GREASE 

* 
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406 

407 

408 

409 

410 


*  FINISH  OF  SEGMENTATION 

COMMON  ACDATAi CONTRC , CONTRO , 
FILEDA .FLAGS , READIN , READIC , SENSE , SORDAT 
END  HI 


CYCLC .CYCLE, CYC LEC , 


.EOF 
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1 

.PROC, SETUP. 

2 

.*  THE  PURPOSE  OF  THIS  PROCEDURE 

FILE 

3 

.*  BUILD  ALL  LIBRARIES  AND  OBJECT 

DECKS 

4 

.*  FOR  THE  WX.  THE  LIBRARIES  WILL  BE  < 

5 

.*  INTERACTIVELY  WHILE  THE  OBJECT 

DECKS 

6 

.*  BATCHED. 

7 

.*  FIRST,  THE  JCL  FOR  THE  BATCH  JOB 

8 

.*  IS  SENT  TO  THE  INPUT  QUEUE. 

9 

RETURN, KNUJ. 

10 

REQUEST, KNUJ,*Q. 

11 

REWIND, JOB. 

12 

COPY, JOB, KNUJ. 

13 

BATCH, KNUJ .INPUT , HERE. 

14 

RETURN, JOB. 

15 

.*  NOW,  THE  LIBRARIES  ARE  BUILT  AND 

16 

.*  FILLED  WITH  THE  NECESSARY  DATA 

FILES 

17 

BUILD, ID-BACKUP. 

18 

BUILD, ID-BATCHIN. 

19 

BUILD, ID-MASTER. 

20 

BUILD, ID-PRINT. 

21 

GO,  1  • 

22 

GO, 2. 

23 

GO, 3. 

24 

GET , CAKM , I D-TW  XDATA . 

25 

SAVE , CAKM-CAKW , ID-MASTER. 

26 

RETURN, CAKM. 

27 

GET , CCAM , I D-TW  XDATA . 

28 

SAVE , CCAM-CCAW 1 , ID-BATCHIN. 

29 

.  RETURN, CCAM. 

30 

GET, CLAM, ID-TW XDATA. 

31 

SAVE , CLAM-CLAW 1 , ID-BATCHIN . 

32 

RETURN, CLAM. 

33 

GET , C LKM , ID-TW XDATA . 

34 

SAVE , CLKM-CLKW , ID-MASTER. 

35 

RETURN, CLKM. 

36 

GET , R2MM , I D-TW  XDATA . 

37 

SAVE , R2MM-R2MW1 , ID-MASTER. 

38 

SAVE , R2MM-R2MW 1 , ID-DATA12 . 

39 

SAVE , R2MM-R2MW1 , ID-DATA22 . 

40 

RETURN, R2MM. 

41 

GE  T , R4MM , I D-TW  XDATA . 

42 

SAVE , R4MM-R4MW 1 , ID-DATA12 . 

43 

SAVE , R4MM-R4MW1 , ID-DATA22 . 

44 

RETURN, R4MM. 

45 

GE  T , RABM , ID-TW XDATA . 

46 

SAVE , RABM-RABW 1 , ID-DATA1 1 . 

47 

SAVE , RABM-RABW 1 , ID-DATA2 1 . 

48 

RETURN, RABM. 

49 

GET , RAPM , ID-TW  XDATA . 

50 

SAVE , RAPM-RAPW 1 , ID-DA TA1 1 . 
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52 

53 

54 

55 

56 

57 

58 

59 

60 
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62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 
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SAVE , RAPM-RAPW 1 , ID-DATA2 1 . 
RETURN, RAPM. 

GET , RBLM , ID-TWXDATA . 

SAVE, RBLM-RBLW1 , ID-DATA 12. 
RETURN, RBLM. 

GET , RCRM , ID-TWXDATA . 

SAVE , RCRM-RCRW 1 , ID-BATCHIN 
RETURN, RCRM. 

GET , RLGM , ID-TWXDATA. 

SAVE , RLGM-RLGW 1 , ID-BATCHIN 
RETURN, RLGM. 

GET , RLUM , ID-TWXDATA. 

SAVE , RLUM-RLUW 1 , ID-BATCHIN 
RETURN, RLUM. 

GET.RACM, ID-TWXDATA. 

SAVE , RACM-RACW , ID-MASTER. 
RETURN, RACM. 

GET , RMRM , ID-TWXDATA . 

SAVE , RMRM-RMRR1 , ID-DATA1 1 . 
SAVE , RMRM-RMRR1 , ID-DATA21 . 
RETURN, RMRM. 

GET , RMUM , 1D-TW  XDATA . 

SAVE , RMUM-RMUW , ID-MASTER . 
RETURN, RMUM. 

GET, RPPM, ID-TWXDATA. 

SAVE , RPPM-RPPW 1 , ID-BATCHIN 
RETURN, RPPM. 

GET , RRLM , 1D-TW XDATA . 

SAVE , RRLM-RRLW 1 , ID-DATA2  2 . 
RETURN, RRLM. 

GET, RSTM , ID-TWXDATA. 

SAVE , RSTM-RSTW1 , ID-BATCHIN 
RETURN, RSTM. 

GET , RTGM , ID-TWXDATA . 

SAVE , RTGM-RTGW1 , IO-bATCHIN 
RETURN, RTGM. 

GET , RWXM , ID-TW XDATA . 

SAVE , RWXM-RWXW , ID-MASTER. 
RETURN, RWXM. 

REVERT. 
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93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 


.DATA, GO. 

. PROC ,GO,N. 

BUILD, ID-DATAltf  N. 

BUILD,  ID«DATA2<Tn. 

REVERT. 

.EOR 

.DATA, JOB. 

TWX,T500, IOIOOO.CNIOOOOO.  T800855  FOX 
BEGIN, NOSFIL. 

GET , TWXGO , I D-TW  XRUN. 

GET , TWXLIB , ID-TW XPROG . 

TWXGO. 

REQUEST, LGO,*PF. 

GET,AR,ID-TWXPROG. 

FTN5,I-AR,LO-0. 

CATALOG , LGO , ARLGO , ID-T800855 , XR-FOX , PW-FOX 
RETURN, LGO,AR. 

GET,LB,ID-TWXPROG. 

REQUEST, LGO, *PF. 

FTN5,I-LG,L0-0. 

CATALOG , LGO, LB LGO, ID-T800855 , XR-FOX , PW-FOX 
RETURN, LGO. 

GET , MISEG , ID-TW XRUN . 

GET , MI , ID-TW XPROG  * 

MISEG. 

GET,APESEG, ID-TW XRUN. 

GET , APE , ID-TW XPROG . 

APESEG. 

GET, LISEG, ID-TW XRUN. 

GET, LI , ID-TW XPROG. 

LISEG. 

GET, INPTGO, ID-TW XRUN. 

INPTGO. 

GET , PROCGO , ID-TW  XRUN . 

PROCGO. 

.EOF 
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Appendix 


Appendix  £ 


TViX  File  Descriptions 

Four  indirect  library  files  are  used  for  storing  all  the 
data  files,  procedure  files,  programs  and  utility  routines  re- 
quired  by  the  TUX  at  AFIT.  These  library  files  are  TUXOATA, 
TWXRUN,  TUXPROG  and  TWXUTIL,  respectively.  The  primary  reason 
behind  separating  the  files  was  to  emphasize  the  difference  in 
the  files  as  much  as  possible.  This  separation  method  is 
equivalent  to  the  file-string  identifiers  used  for  the  TWX  files 
at  Maxwell  AFB. 

TWXDATA 


All  data  files  are  stored  in  the  indirect  library  file 
TWXDATA  (Table  VI).  There  are  two  types  of  data  files,  sequen¬ 
tial  card  image  and  direct  access  binary.  The  following  nomen¬ 
clature  has  been  adopted  to  distinguish  between  them 

ABBx# 

where: 

A  •  C  if  the  file  is  sequential  (card  image) 

R  if  the  file  is  random  (direct  access) 

BB  -  file  identifier 

x  ■  M  if  the  file  is  a  master  file 
W  if  the  file  is  a  working  file 

#  -  seminar  number 
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TWXDATA  contains  only  file  masters.  During  initialization, 
copies  are  made  of  these  files  and  are  placed  in  the  IFS  files 
MASTER,  DATA11,  DATA12,  DATA21,  DATA22,  and  BATCHIN.  MASTER  con¬ 
tains  those  data  files  which  are  not  modified  during  the  execu¬ 
tion  phase.  All  IFS  files  with  the  prefix  "DATA"  contain  the 
modifiable  input  files  to  APE,  MI  and  LI  where  the  name  is  of  the 
form 


DATAxy 


where : 

x  -  side  (1  for  Blue  and  2  for  Red) 
y  *  1,  2  or  3 

1  -  input  files  to  APE  and  LI 

2  -  input  files  to  MI  (output  from  APE) 

3  ■  output  files  from  MI  and  LI 


BATCHIN  contains  the  input  files  to  the  batch  jobs  and  the 
modified  data  files.  Prior  to  the  next  day's  run,  those  files 
which  were  originally  in  the  DATA  files  (RAPWi*,  RABWtf,  R2MW#, 
R4MW#,  RBLW#  and  RRLW#)  must  be  modified  with  the  appropriate 
utility  programs  and  replaced. 
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TABLE  VI 


TWXDATA  Files 


Data  File 

DescripCion 

CAKM 

Air  constants  file 

CCAM 

Combined  actions  file 

CLAM 

Land  actions  file 

CLKM 

Land  constants  file 

RABM 

Airbase  file 

RACM 

Aircraft  file 

RAPM 

AAFCE  planning  file 

RBLM 

Blue  land  file 

RRLM 

Red  land  file 

RCRM 

Combined  reconnaissance  file 
(not  required  for  theater  simulation) 

RLGM 

Logistics  file 

RLUM 

Land  units  file 

RMUM 

Munition  load  file 

RMRM 

Mission  reference  file 

R2MM 

Mission  working  master  file 
(2ATAF) 

R4MM 

Mission  working  master  file 
(4ATAF) 

RMWM 

Mission  working  master  file 
(ATAF  flag  not  set) 

RPPM 

Preprogrammed  control  file 
(initially  blank  filled) 

RSTM 

Statistics  file 
(initially  blank  filled) 

RTGM 

Target  file 

RWXM 

Weather  file 

TWXPROG  and  TWXRUN 


Two  files  are  used  for  scoring  programs;  TWXPROG  and  TWXRUN. 
TWXPROG  contains  only  chose  programs  (Table  VII)  which  are  total- 
ly  source  code  (AR,  APE,  MI,  LI,  LB  and  TWXLIB).  Programs  in 
TWXRUN  (Table  IIIX)  are  preceded  by  a  procedure  file  which  com* 
piles  the  program,  accesses  Che  necessary  daCa  files,  executes 
Che  program,  and  replaces  the  modified  data  files.  These  pro* 


grams  are  che  relatively  small  baton  programs  SQ,  MR,  AG,  HA,  OR 


and  LA.  The  purpose  of  this  separation  is  to  maximize  clarity 
and  minimize  storage  s.pace.-  The  primary  function  of  TWXRUN  is 
the  storage  of  procedure  files.  Since  the  relatively  small  batch 
programs  are  prefixed  with  procedure  files,  they  are  stored  in 
TWXRUN.  The  object  decks  for  each  of  the  small  batch  programs 
could  be  created  once  and  stored  on  a  disk  file  but  then  storage 
space  would  be  required  for  two  procedure  files,  the  program 
source  and  its  object  deck  for  each  of  the  programs.  This  way, 
only  one  procedure  file  and  source  is  stored  for  each  program. 


TABLE  VII 


TWXPROG  Files 


File 

Description 

APE 

AR 

LB 

LI 

MI 

MISC 

TWXLIB 

XXSRCE 

AAFCE  Planning  Executive  program 
Air  battle  simulation  program 

Land  battle  simulation  program 

Land  order  input  program 

Mission  order  input  program 
Unmodified  utility  programs 

TWX  Library  routines 

Original  main  driver  routine  XX 
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TABLE  I IX 


TWXRUN  Files 


File 

Description 

AGGO,  AGGOB 

AG  execution  proc 

APEGO 

APE  execution  proc 

APESEG 

APE  segmentation  proc 

ARGO 

AR  batch  job  spawning  proc 

ARSEG 

AR  segmentation  proc  (unvarified) 

ARSEGO 

AR  segmentation  spawning  proc 

INPTGO 

INPTR  compilation  and  cataloging  proc 

IPGO 

IP  execution  proc 

LAGO,  LAGOB 

LA  execution  proc 

LBGO 

LB  execution  spawning  proc 

LBSEC 

LB  segmentation  spawning  proc 

LBSEG 

LB  segmentation  proc  (unvarified) 

LBSEGO 

LB  segmentation  spawning  proc 

LGGO 

LG  execution  proc  (no  longer  used) 

LIGO 

LI  execution  proc 

LISEG 

LI  segmentation  proc 

MAGO,  MAGOB 

MA  execution  proc 

MIGO 

MX  execution  proc 

MIS  EG 

Ml  segmentation  proc 

MR 

MR  execution  proc 

ORGO,  ORGOB 

OR  execution  proc 

SETUP 

TWX  file  initialization  proc 

SQGO 

SQ  execution  proc 

STGO 

ST  execution  proc 

TWXJCL 

original  Honeywell  JCL  (archive  file) 

US  SCO 

WSS  execution  proc 

i 
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TUXUTIL 


During  the  execution  of  the  TUX,  various  data  files  must  be 
modified,  some  directly,  others  indirectly.  Unlike  the  sequen¬ 
tial  card  image  files  which  can  be  printed,  edited,  and  replaced, 
direct  access  files  require  programs  for  reading  and  editing.  Of 
the  22  data  files  used  in  TUX,  18  are  direct  access  (these  are 
identified  by  the  first  character;  "RM  for  random).  For  these 
data  files,  programs  have  been  developed  to  permit  editing  (Table 
IX). 


TABLE  IX 


TUXUTIL  Files 


Program 

File(s)  read 
and  Modified 

RABREAD 

RABx# 

RACREAD 

RACx 

RAPREAD 

RAPx// ,  RPPx# 

(no  changes  permitted) 

RBLREAD 

RBLx#,  RRLx# ,  KMUx 

RCRREAD 

RCRx# 

RLUREAD 

RLUx# 

RMRREAD 

RMRx# 

(no  changes  permitted) 

RPPREAD 

RPPx# 

RTGREAD 

RTGx# 

R2MREAD 

R2Mx# ,  R4M x#,  RLGx 
and  RMRx#  (logicals  are 
displayed  as  integers) 
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